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Editorial 



WALES, home of the Dragon- The very 
place for a summer holiday — as long 
as you stay indoors. No, seriously, its 
mot like that. It only rains In the morn- 
ings. Anyway, I m off next week, so if 
you see a puff of smoke and flame along 
Hay Bluff, it won't be me, 'cos Pm not 
telling anyone where I am.™ 

...just like The Expert, in fact. We 
would like to think that he's lost in the 
post, the postal strike started after he 
should have been here... 

The best news this month Is that 
Pulsar Software are planning a show in 
Rochdale later in the year. Somebody 
else has an eye on a London venue, and 
some of the NDUGs are putting on an 
informal show on the south coast. The 
future of the Dragon lies in bringing 
together suppliers, users and software 
writers in a setting whic h is substantial 
enough to draw people from all over 
Britain, and informal enough to accom- 
modate moderate numbers in comfort. 
No more echoing halls. 

And don't miss our special book of- 
fer. Dragon books are getting harder to 
find as big publishers look elsewhere* 
Now is a good time to buy out of print 
books at remainder prices. Have a look 




How to submit articles 

The quality of the material we can publish in 
Dragon User each month will, to a very great ex- 
te nt de pes n d on Ihe q u al ity of the d iscovene sthat 
you can make with your Dragon. The Dragon 
computer was launched on to the market with a 
powerful version of Basic, but with very poor 
documentation. 

Articles which are submitted to Dragon User 
lor publication should not be more than 3000 
words long All submissions should be typed, 
Please leave wide margins and a double space 
beiween each line. Programs should . whenever 
possible, be fcornputer printed on plain whit© 
paper and be accompanied by a tape of the 
program 

We cannot guarantee ro return every submit- 
ted article or program so please keep a copy. If 
you wans io have your pro gram returned you must 
include a stamped addressed envelope. 



Letters 



Basic 
extension 

HAVING just read Roy 
Coates's review of Basic 42 
again, I decided to add some 

co mm en is. 

Firstly, Roy's review and the 
ads might lead some to sup- 
pose, on booting the system, 
that you could expect more 
memory space available to 
Basic than when operating in 
32K mode. This is not the case, 
in fact, it is exactly the same. 
There are 3.75Kextra available 
for machine code or data 
storage, bu t th is is t he area used 
by the utilities and it cannot be 
used if you want to use the non- 
destructive window 9. 

Another poinllslhaiwas with 

Compusense's tf/Res , once a 
c haracte r is d r a w n on t he screen 
it is forgotten, so a high resolu- 
tion screen dump is required if 
yo u want h ard copy of y o u r i nf or- 
mation . This is not a problem if 
you have a machine code dump 
routine, as the start and finish 
addresses of the current 
window are readily available 
and can be sent to the dump 
routine so that just the current 
window is printed. The key- 
board response seems to be 
slower and I find that I lose 
characters. This seems to be 
alleviated by shortening the 
delay before autorepeat. 

Because the system re- 
cognises PRINT® and prints it 
relative lo the window being 
used, running existing pro- 
grams on Basic 42 can give 
some unexpected screen 
displays. The best way round 
this is to use the FRAME com- 
mand and define a window 32 
characters wide and 16 deep, 
usethiswindowandthedisplay 
is re stored . Th e u se of w i n d o ws 
g i ves a mu c h more p rof ess io nal 
look toyourprograms, making it 

possible to display a program 
titteatthe top of the screen wh ilo 
all the action lakes place below. 
If a command window is then 
u s ed a 1 1 he bottom of the sc ree n 
tor requesting inputs, key- 
presses etc., the result can be 
very impressive. 

Finally, accepting com- 
mands in lower case letters 
may be very desirable when 
programming, but it can be 
i n f u r iati ng w hen all I N P U Ts an d 
LINE INPUTs are treated inthe 
same way, ie converted to upper 
case. Unfortunately, this is 
exactly what happens- Help 



Every month we will be shell ing out a game or two, 
courtesy of Microdeal, to the reader/s 
who send the most interesting or 
entertaining letters. So send 
us your hints and your opinions, 
send us your hi-scores and 
suggestions. Send us your 

on stories. What 
d'you think we are, 
mind Man*™ - ?! 








Delta users 

DUDE stands for Delta Users Data Exchange, I initiated it after 

spending a long time struggling without information, professional 

software etc. As time passes it becomes increasingly obvious that 

t h e Drag on co m mu n ity is form ing i n to spec if ic u se r g ro u p s an d it is 

natural that Delta users should also have a common base. The group 

isstillyoung and has no definite structure, as I am stiltwaifmgtosee 

if there is a good response from the details given in DU . 
If there is, then it's likely that a NEWSDISK will be puttogether, as 

tneOS-9Grouph a ve don e . Th i s keeps C osts do w n for th e m e mbe rs 
and all o ws ea sy t ran s f er of soft wa re. Ha vi ng already contacted a few 
people, the initial response seems favourable and ( have made 
several new ' f rien d s " ( i f on [y over the phone! ). I d i d n ' t real i se j u st how 
helpful so me people can be. not to mention the enthusiasm they have 
for De!ta(it IS the best DOS!). The group will only thrive if other Delta 
u se rs get i n con tact an d show some i n te rest , so write to m e o r p hon e 
on (0703) 38042 and find out what you Ve missing! If you don't need 
something now, you may do in the future, and you could make a 
valuablecontribution. 

Dave Martin, 44Firgrove Road, Frcemantle. Southampton, 

Hants SOI 3EN, 

PS To all the people who L registered' at the show, but have not 
contacted mesince... you should beasharned, get your writing pad 




THEuserg roups a re t h e ba c kta o n e of s peci a I i st 0 r ago n isa t ion 
j ust a s Dragon User is th e backbone of general Dragonisation. 
They form the networks which keep users in touch. I strongly 
s u g gest t hat Del ta users get in t o u c h wi th D a vi d to f i nd o u t wh at 
is going on, even if they don't see how a group would be of 
im med rate benef it , Th e n , i f n oth i n g else, someone w ou Id have 
a register where Delta people could get i n touch. 



is at hand here, for when I con- 
tacted Bob Harris he advised 
that POKE 57685, 41 switches 
the facility off and POKE 57658. 
15 puts \: bacKOn again. Once 
these were incorporated at the 
beginning and end of the pro- 
gram, the problem is solved. 

After reading this you might 
think that I am so me what disap- 
pointed with the package : but 
you would be wrong. Using the 
system is simplicity itself, a 
quick browse through the ex- 
cellent manual and I was ready 
to go, and the overall effect was 
that it made my work look good 
and in doing so made me look 
good, and who could ask for 
more than that? I shall have to 
get the spool utility though, as at 



p rese nt I ca n ma ke t he tea w h i le 
the machine dumps the hi-res 
screen. 

Ken Smith 
33 Gtack Road 

Deal 
Kent 

CT14 9ND 




Dragon 
chunnel 

WITH regards to shows, has 
an y o n e th o ught of us i ng Dover? 

I know we have many Dragon 
owners in Belgium and Holland, 
not to mention France. If we now 
add those from the south of 



Engl and we cou Id have a n i nte r- 
national Dragon Show, I sup- 
pose it is all just a dream but it 
might make people take notice 
of us. 

Ken G. Smith 

33Glaok Road 

Deal 

Kent 

CT149ND 




Curve 
warped 

THE euphoria of finding my 
name ment i o ned three t i m es on 
Gordon Lee's Winners and 
Losers page June 1987 soon 
e va porated w hen two m i sta k e s 
were spotted in my Dragon 
Curve program listing. If anyone 
has tried the program then it 
would have crashed almost in- 
stantly, The following correc- 
tionswill rectify matters: 

Line 60 had a bracket missing 
and should have read: 



60D = D + (S(C) = S(C + 1}) 
-(3(C)OS(C + 1)} 

Line 150 included the number 
570, t he o nly 570 1 know i s house 
number, perhaps that was a 
hint, it s hou Id have read : 

150IFS(0) = OTHEND = 0: 
GOTO 50 

D.J .Gray 






Cleveland 
TS58BE 

AFTER everything else, too. 
Never mind. Let s hope this 
correction puts the curve 
straight, so to speak. 




Revoxed 

RECENTLY my Dragon 32 lost 
its voice. Occasionally it does 
return for brief periods, but isun- 
predictable. Since all the soft- 
wans still worked OK on it I was 
loath to send it to be repaired in 
case it L died' on the operating 



elf to its 
use a 
recorder 




I had resigned 
silence until last 
Saisho DR1Q d 
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This is the chance to air you r views — send you r tips, compliments and complaints to Letters 

Page, Dragon User, 12-13 Little Newport Street, London WC2H 7PP. 



which has a switchable monitor 
and LED indicator. I had just 
loaded a game, and forgot to 
press the STOP button, and 
started playing. I was surprised 
to see that the LED indicator 
was j urn ping in ti me wit h th e ex- 
pected sou nd effects, I switch- 
ed on the monitor and was sur- 
prised to find the Dragon was 
using the cassette to speak to 
me, I have s i n ce played a rou n d 
and found the sequence to get 
the new voice is a) having 
loaded press STOP to release 
the head, b} put a blank tape in 
to keep the sensor pressed and 
press RECORD only, c) switch 
the monitor to on, and reduce 
the volume considerably, The 
Dragon sends all sound output 
to the data recorder. 

I managed to find someone 
else with a fully work i n g Drag on , 
w ho Tri ed t h i s and fou n d it work- 
ed on his also. In fact the sound 
came both from the television 
and the cassette recorder, so 
you can have a ste reo D ragon .... 
I believe the original problem 
with my Dragon is simply a dry 
joint somewhere, but now i donl 
have to worry about it. 

Thank you for your excellent 
magazine, Long Live the 
Dragon. 

M. Halt 
103 Mandarin Way 
Wyman's Brook 
Cheltenham 

GL50 4RS 

PS I persuaded my friend with 
the working Dragon to 
subscribe to Dragon User, do I 
get commission?? 



WELL er not as such, but if 
your friend finds he doesn't 
like us you can come and hide 
in the filing cabinet here for a 
bit. Urn, can you type, by any 
chance? 



magazine without putting 
the odd six-page listing in, 
y'know, 

OK, lets get back to work: 
the great printer issue is over 
and done, although we still 
have a stock of screen dumps 
which we shall be running in 
clumps. NOW we would I ike to 
hear from anyone who would 
like to write a review, des- 
cription or educational piece 
on disc drives or disc 
operating systems. The hard- 
ware doesn't have to be new, 
but it must either be current- 
ly available or widely owned. 
Drop me a line and I will write 
back with details. 




Autorun 

LOOKING back in the life of the 
D ragon , people have always 
made hard work of autorun ning 
a Basic program. Here is my 
short solution. 

1) Load basic program as 
normal. 

2) To save type: 

PCLEAR1 :CLS:?@235. 
"LOADING!": 

CSAVEM "Name 1 ', 166, 256 * 
PEEK (27) + 255,0: 
POKE 25, 12: POKE 27, PEEK 
(126): POKE29 : PEEK (27): 
POKE 31, PEEK (27): RUN 

This works by saving the direct 
command along with the Basic, 
so when reloaded it carries on 
with the com mand from where 
it left off causing the locations to 
be reset and a RUN command . 

Paul Burgin 
18 Moorfi&id Road 

Fuiwood 




S10 4GS 





Listings 

lamblasted Malta 



I have delayed renewing my 
subscription as I have become 
rather disappointed with the 
mag azi ne rece nil y as it ap pea rs 
to contain little but long pages of 
listings. The June editorial in- 
dicates some hope, so I will now 
renew. 

BP. Collins 

STR EWTHMt p s a toug h life try- 
ing to run a computer 



message 



THROUGH the mediumof your 
magazine Dragon o wn e rs h a ve 
remained united, and help each 
other It's with this in mind that 
Im writing this letter. Others 
helped me, so I should help 
them. 

In the book Inside the Dragon 
on page 207, I found a very 
important poke. How to print on 



the printer exactly what in the 
screen, regarding printer width, 
but it has a small mistake. 

In short, the following Basic 
Direct (without line number) 
statements set up the printer 
width to be the same as the 
Dragon's display width ; of 32 
characters per line. 

Poke & HI 48,0 
Poke &H9B,32 
LLIST 



That has a mistake in it in the 
book, with a $ instead of th e cor- 



I would like to take this oppor- 
tunity to thank Pam DArcywho 
in the Dragon User of Sep. 86 
pointed out another small 
mistake on page 215 of Inside 
the Dr&gon '(is, the cassette gap 
byte being $01 for "continuous 
stream' whereas it is actually 
$00). 

In my opinion Inside the 
Dragon is the best book for 
serious programmers, but to 
clear out the bugs and get an 
OK message, one still needs to 
take a good look at the Dragon 
User. My compliments to the 
Editor and all the staff. 

Joe Brincat 
73 Annunciation Street 

Hamrun 
Malta 



JOE is another of those 
Drag oners who is a really 
useful human being, and 
writes us nice letters, too. 




Main 
man 

I have read you r mag azine since 
it first came out, and I am 
amazed at the amount of 
detrimental rubbish stated 
about both the Dragon and 
Tandy Computers. 

I have been using both makes 
for some years and apart from a 
very small amount of com- 
ponent failures (1 modulator. 1 
joystick input chip), I have had 
no other problems. 

The main trouble seemsto be 
that your readers only I ike to play 
games. The Dragon and Tandy s 
are amongst the most powerful 
of the 8 bit computers I have 
ever seen . I have been running 
random access sorts (several 
Megs long) and other business 



and control programs including 
using the Telewriter word pro- 
cessor programs. 

I have fou r d iscs of 750 K eac h 
on each Dragon, and have not 
even had a seek error on a run 
program in six years. I wish I 
could say the same of Tandy 
Dos (it does five or six seeks per 
read or write!). 

The reason for this low error 
rate is that I run the socalled ob- 
solete DeliaDos which runs like 
a good mainframe unit. It allows 
chaining and other important 
featur e s and does not have any 
of the bugs that I keep reading 
about in your journal. I also run 
both Mx80 and Mx100 Epson 
printers and a J u ki daisy wheel 
printer. The Juki has only two 
probl e ms fit i s slow an d it throws 
away any characters over one 
line length, you can not line wrap 
as with the Epsons). I feel it is 
time someone spoke up for 
these very high powered but 
small computers. By the way 
what has happened to Euro hard 
the company that bought out 
the Dragon? Are they still in 
bus i ness? I f so can Dragons st i 1 1 
be obtained from them (even if 
the ROMS have to be changed 
to English ones)? 

I worked for many years on 
mainframe computers and I can 
run the same sort of jobs in the 
same sort of time on a Dragon! 
I have not seen it done on any 
other small computer. 

A.G.Earnshaw 
23 Deltfield Crescent 






UB8 2ET 

WELL, er, thanks for the tips, 
A.C. Actually, most of the folks 
I know who work on main- 
frames spend their lunch 
breaks playing 'Colossal 
Adventure 1 . 

As far as we know, Euro hard 
are still in business, but no- 
one over here seems to be 
able to buy anything from 
them, so we a rent entirely 
clear what In business' con- 
sists of. 




Footnote 

Footnotes . , . Don't forget to write 
to us if you would like to write 
about your disc drives for 
on User ... at last Ken 
Smith got his Basic 42 letter 
pr i nted — even if i t d id c ate h u p 
with the next one. 
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News desk 



If you have any new products for the Dragon — software or hardware 

ring the News Desk on 01 -437 4343 



Dragon Show 
in September 



PULSAR Software a re organis- 
ing a Dragon show in Rochdale, 
Lancashire in September. 

The show, titled the North of 
England Dragon Show and 

Convention, will take place on 

Sat u rd ay 12th Septem ber at t he 
Bishop Han slow Upper School, 
Rochdale. 

fi We have been in touch with 
all the software dealers." says 
Pulsar, " and they all want to 
come, apart from Microdeal 
who weren't too sure. Its too 
early to finalise anything yet, but . 
we have a pane! of 'experts' from 
the local user group, and people 
to do demonstrations. We want 

to make this a bit more wide 



ranging than a normal show." 

"There will be a computer 
clinic, whereanyonecancome 

and ask about any computing 
problems they are having, and 
we'll be having a forum where 
people can ask questions. 11 

We" v e o rg a n i sed a s nac k b a r 
and we are applying for a bar 
I icence." The show will beopen 

from 10am to 4pm, and the gate 
charge will be £1.50 for adults 
and E100 for children. 

Subject to the normal limita- 
tions imposed by doing three 
jobs at once, the editor ol Dragon 
User is looking forward to finding 
out where Rochdale is in time for 




New Trojan 
pen software 




MACGOWAN Consultants have 
rewritten the previously dis- 
appointing software which 
accompanied the Trojan Light 
Pen. The new version is 
available on tape for E7.00 or 
disc for £8.00. The Light Pen 
itself is also available for new 
users. 

Among the improvements in 
th e new software a re f u 1 1 sc reen 

availability, all machine-code 
program , and PMODE 3 and 4 
screen dumping for 114different 
printers. 

J, AII our products are printer 
orientated" says Bill Mac- 
Go wan. "I am the country's 
leading expert on printers now, 
and as far as I am concerned. 



anybody can ring us up for 
advice on printers at any time 
with no obligation. I'd rat her they 
did, because I can then tell them 
what's wrong with the printer 
they want to buy" 

MacGowan, who is also 
w r i ti ng sc reen d u m ps for Corn- 
mod ore, BBC and Atari micros, 
st res ses t hat t hei r p rod u cts a re 
unconditionally guaranteed 

and "are up to the standard 
which our customers have 
come to expect" MacGowan 

consultants are at 6 Am hem 

Drive, Caythorpe, Nr. Gran- 
tham, Lines NC32 3DQ (tel: 
0400 72085), but their products 
can also be obtained from 
Harris Micros. 



Printer 
progs 



Ve rsion s a re a va i fable f o r t h e 
Brother Hfl-5 TTP, Seikosha 
GP100A, and Epson FX 





have 

three new utility launches, all 

under £5.00. Printer Prompt It 
(version 2J5) is a new version of 
that program giving a 64 
character- per- line screen 
display WYSIWYG, double 

width letters and an 'address 
blocker' routine. 



compatible printers. Custom 
versions can be supplied — 
SAE for details. Price: £4.00. 

The Se ikosh a Seres n 
Dumper does j ust t haL d u mping 
hi-res modes 0, 2 and 4 in mini 
or large (roughly A4) size to the 
SeikoshaGPiOOA printer. Price: 

£200 

Fontasia Computa-Text is a 
program for use with 
MacGowan Consultants' Printer 



Control word processor It gives 
a new text font in a squared , 
semi-graphic style, useful for 
display or for short texts like in- 
vitations or messages. Price: 
£2.00. 

These programs can be 
obtained from Dragonfire 
Services, 13 Parry Jones Close, 
Blaina, Gwent, NP3 3NR 



countrywide, and full instruc- 



High 




COW EN Software called to say 
that Adventure Writer, reviewed 

in last month's DUi is now 
available only as an improved 
version at the higher price of 
£1 4. 95, an d is bei ng d i st r i bu te d 
by Feaksoft* 



Modem 

package 

A complete modem package for 
the Dragon 64 is being 
marketed by Hayton Electronics 
for £45, including post and 
packing. 

The package includes a 
Prism Modem 2Q0Q, a connec- 
ting lead , software to enable the 
computer to access viewdata 
type boards (PresteL for exam- 
ple) and scrolling ASCI I boards 

wh ich run on 100/75 baud , a list 
of over 200 bulletin boards 



The software comes on tape 
or disc for DragonDOS only. 
Hayton Electronics is at 36 
Laurel Drive, Willaston, South 
Wirral. 164 1TW. 





South 
coast 
show 



PHILIP Beed, Dragon person 

and IMDUG regular, is putting 
around the word that he and 
some south coast friends are 
organising a non-commercial 
'show and get-together' in the 
late autumn or early winter. The 

venue will be in 
Portsmouth, and chosen to suit 

numbers. 

Philip says that his intention 
is primahly to get people 
together to discuss and 

demonstrate aspects of com- 
puting, but that if sufficient 
numbers are interested they 
may be able to organise dis- 
counts on some computer pro- 
ducts. The cost of mounting the 
meeting should, he reckons, be 
between £1 and £3 per head. 

AH those interested in taking 
part or going along should con- 
tact Philip at 27 Findon Road, 
Elson, Gosport, Hants P012 
4EP with a stamped self ad- 
dressed envelope for the latest 
update. 



67 Dragons wedged 
in a letterbox 



TALKING of Lancashire, com- 
pu ters — ot her c o m p ute rs, t hat 
is — are not your Editor's 
favourite subject just at the 
moment. Nor are they the 
favourite subject of reader P 
Clayton of Chorley. Lanes. 

The rest of us blam e t he c o m - 
puter when Dragon User 
doesn't arrive on time. Mr 
Clayton is blaming the com- 
puter because Dragon User did 
turn upon time — all 67 of them. 

In fact, at the time of writing, 
M r. Clayton has received 63 and 



is awaiting the final four. 

"I couldn't believe my eyes 
when the postman brought the 
sack round." he said. 

Comments office supremo 
Anne Marie Allen: : The bug 
must have been waiting since 
his subscription was entered a 
year ago. Fortunately, he hasn't 
received 67 copies every 
month." 

So if you r Dragon User was a 
little late this month, check the 
post ma rk — it m ig ht h a ve bee n 
to Lancashire. 
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News desk 



If you have any new products for the Dragon — software or hardware 

ring the News Desk on 01-437 4343 



New company sells fifth generation 



M ETAS OFT is a new software 
house launched by Chris Jolly, 
wh o is already well known for his 
work on Dragon software. 

Meta soft's first production is 
Prolog , wh i c h ru ns u n d er OS-9 
on a Dragon 64. 

It is 'an extremely powerful 




Reprocess 

DR. Anthony Daniels writes to 
that there is a small bug in 
month's Graphics Screen 
Word Processor. 
The correct line 570 is: 

570 IF P EE K(341 ) = 247 AND 
LS< >B THEN AB=B:B=LS: 
S = LS*512:GOSUB3390: 

IFAB>0THENMX = A: 
MY=LS*512:GOSUB3920: 
X=Y:POKEMY+XA,143:: 
RE^0:GOSUB260: B=AB: 
Y=480:M = 143:XA = X:AB=0^ 
PRIMT@X,CHR$(143);: 

PRINT@0,CHR$(143): 
GOTO500 ELSE 500 



5th generation language for 
applicat ions demanding bui It- i n 
intelligence.' 

Prolog programs consist of 
facts, rules and relationships, 
and exec u t ion co nsists of a con- 
trolled deduction through the 
facts and rules to arrive at a 
conclusion. 

Says programmer Alain 
Colmerauer "the programmer 



who comes to Prolog after using 
a classical language will ex- 
perience the same sort of 
revelation as someone who 
moves from arithmetic to the 
first steps of algebra." 

Prolog costs £29.95, in- 
cluding post and packing and 
an 100 page manual, from 
Metasoft at 4 Pinehurst Walk, 
Orpington. Kent BR6 8DD. 




Data protection survey 
reveals public approval 



A survey commissioned by 
the Data Protection Registrar 
shows that seven out of ten 
people surveyed wanted to be 
able to gain access to informa^ 
tion about themselves held on 
computer files. There was also 
support for companies charg- 
ing a small fee — up to £5 — for 
supplying data on request. 

Most interestingly, a majority 
of those asked wanted to see 



legislation to control the type of 
data which can be kept, to 
establish the right to have per- 
son al d ata ad d e d to o r rem oved 
from a file where relevant, and 
to extend these protections to 
paper records as well as mag- 
netic records. The most impor- 
tant right was felt to be that of 
inspecting records, and having 
them corrected where neces- 
s a ry . 



Personal privacy as a matter 
of concern was ranked fourth 
after law and order, unemploy- 
ment and education. People 
were most concerned a bout the 
misuse of f i na nc i al i nform ation 
and medical records. 

Surprisingly perhaps con- 
sidering the publicity which is 
given to these issues from 
time to time, there was a high 
level of trust in the police, 
health service, and banks, while 
mail order companies and 
credit reference agencies 
were regarded with more 
suspicion. 

While we must assume that 
the DPR 's office wanttoshowa 
level of public support for the Act 
after the consternation that it 
has caused among computer 
data users, there is no doubt that 
people $re concerned that infor- 
mation about them might be 
stored and used without any 
means of cross checking its 




If the Data Protection Act 
can prevent this to any 
degree, it will be doing a good 
job. 



Dragonsoft 



New software for review should be sent to Dragon User 
12-13 Little Newport Street, London WC2H 7PP. 



Great modem, shame about the software 



Package: Dragon 64 Prism 
Modem 2000 comms package. 
SupplienHayton Electronics, 
36 Laurel Drive, Willaston, S 
Wirral L64 1TW. 
Price: £45 including post and 
package. Disc or tape version 
available. 

WHEN a complete communi- 
cations package, leads and all, 
is on offer at this price, the first 
thing you ask yourself is 
"Where's the catch? Well, I 
have to say that after two 
months, I have not yet found 
one. 

The modem is a very neat 
Prism 2000, which operates in 
1200/75 (V23) mode or, for one 
way communication 1200 baud 
half duplex. 

All the Input/Output sockets 
are at the rear leaving the front 
clear for the three LEDs and the 
'mode" and 'data 1 buttons. The 
three indicators are for Mains 
On, Line (to indicate that 
it is online), and Signal, which 



shows when a carrier wave is 
established and information 
can be exchanged. 

Using the system could not 
be easier. Once the software 
has I oaded , it is simp Ly a m atte r 
of dialling the relevant n u mber, 
using an ordinary phone 
plugged into the back of the 
mod e m , As soo n as t he h ig h pi t- 
ched carrier tone is received, 
press the data button and 
replace the telephone receiver, 
You should then be online, and 
receiving data from the host 
computer. The telephone can 
be left plugged in and will still 
function normally when the 
computer is not using the line. 
The hardware works very well; 
it cop6s admirably with my noisy 
phone line without corrupting 
the incoming data. In fact the 
on ly t i me th is h as occ u rre d was 
when someone tried to use the 
extension. 

Th e software co ns i sis of f o u r 
programs on a cassette and is 
the weak point of the whole 



package. The instructions can 
best be described as vague and 
the programs themselves have 
an amateur feel to them. 
One example of this is in the 

VIEWDATA program. If you are 
not going to provide a save to 
tape routine, and I agree it is 
impractical, then there should 
be a DOS detection routine to 
sto p t h e sy ste m c rash i ng whe n 
a tape user presses the wrong 
key Likewise, in the bulletin 
board program, what excuse 
can there be for allowing the 
buffer to oversow and corrupt 
the program? A 'buffer full 1 
routine which referred the user 
back to the main menu could 
have saved a tot of aggro. 

Even the MENU program has 
a probiem; it lacks a CLEAR 
command . Any attempt to read 
back the information stored on 
disc without first running the 
ASCI I routine results in a system 
eras h . There is a Iso no p rovi s i o n 
for reviewing saved VI EWDATA 
screens. These may be fairly 



insignificant faults to an ex- 
perienced programmer, but to 
anyone relying solely on the 
software supplied, it could be 
enough to make them give up 
altogether 

On the plus side, Tim Hayton 
is always ready to enter into 
correspondence to sort out 
your problems and, so far as 
backup is concerned, you will 
not find better He moved 
heaven and earth to find me a 
POKE to cure the problems I 
experienced with my SUPER- 
DOS, and helped me out with 
finding local boards. 

Taken overall^ the package 
represents outstanding value 
for money, the price ready is 
unbelievable. If only the soft- 
ware had been a little more pro- 
fessional, it would have been 
truly superb. 

Ken G. Smith 
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The Answer 



This is Gordon Lee's own 
solution to the May competition 
see page 31 for results 



ANSWER: The best result that I could find 
using familiar words is the four word 
sequence GOD, OWL, SAP, and WET 
Other possibles would include ADD, BEE, 
ILL, and LOO (its a card game!), or AHA, (a 
sunken fence), BIB, NUN, and TAT (a type 
of coarse canvas). 

The program is built on a data-base 
containing 553 three- letter words. These 
were typed in from a suitable dictionary — 
in this case Casseirs Crossword Finisher. 
Of the 700 or so three-letter words listed, 
I did not include the less common words, 
These words are placed in the DATA lines 



10W=553 

20 DIM W$(W),RS(10),S(27) 
30 FOR N=1 TO W:READ W$(N):NEXT 
40 FOR N=1 TO 27: READ S(N):NEXT 
50FORN=1 TOW 
60 R= s 1:ZS=WS(N):RSfR)=Z$;IFZ$= ,,1, THEN 220 
70 A = ASC( M I D$(Z$, 1 , 1 )) : B = AS C (M I D$(Z$,2 ,1 )) : C = ASC( M I D$ 
(Z$,3,1)) 

80 A=A+1:1FA=91 THEN A=65 

90 B = B + 1:IF B=91 THEN B-65 

100C=C+1:IFC=91 THENC=65 

1 1 0 Z£= C H R$f A) + CH R${ B) + C H R $( C) 

120IFZ$=R$(1)THEN 200 

130 FL=0:FGR F=1 TO 3:L$+MID$(Z$,F,1) 



set of letters to see if at least one vowel 
(A,EJ,0,U, or Y) is present, Time is saved 
by only checking a small section of the ar- 
ray re I event to the initial letter of the word. 

This initial letter is denoted by variable A 
(line 70), and this value is checked against 
the array S() which holds the relative posi- 
tions of words beginning with the letter L 
(ASCII code 76) will be found in the array 
between W$(278) and WS{304). This 
routine is at lines 170 to 190, Finally, line 180 
also removes from the array each word as 
it is found to prevent re-duplication of 
sequences. 



140 IF L$='W'OR L$="E' - OR L$+T'OR L$= "0" OR L$="V"OR 

L$="Y" THEN FL=1 

150 NEXT F 

160 IF FL-0THEN7O 

170 MIN = S(A-64):MAX=S(A-63) 

180 FOR F=MIN TO MAX: IF W$(F)=Z$ THEN 

R = R+1:R$(R)=Z$:W$(F)="":F=MAX 

190NEXTF:GOTO7G 

200 IF R<3 THEN 220 

210 FOR F=1 TO R:PR|NTR$(F);" ";:NEXT:PRINT 
220 NEXT N 

230 PRINT" TASK COMPLETE" 
240 END 



(250 to 640). 
The program takes each word in turn 

and then produces a series of twenty-six 
possible words by advancing each of the 
letters one place at a time. Each of these 
three- letter combinations is then checked 
against the list of words held, and any that 
match arc held in the array R$. If the 
number held in this array during a single 
run exceeds 2, then the contents of the 
array are printed out (lines 200 and 210), 

I n order to speed up the ru nning time of 
the program a number of time-savers are 
incorporated. Lines 1 30 to 150 check each 



250 DATA ACE , ACT, A DD, A DO. A FT, AG E , AGO, AH A , A I DA I L, A I VI . A I R , Al T, A LB 
260 DATA ALE, ALL, ALR AND, ANT, ANY, APE, APT, ARC, A RE, ARK, ARM, ART, ASH 
270 DATA ASK. AS PASS, ATE, AUK, AVE, AWE, AWL, AWN .AXE, AYE, AYR, BAD. BAG 
280 DATA BAN.BARBAR,BATBAY.BED,BEE,BEG,BEL,BEN,BET,BIB,BID.BIG 
290 DATA BIN, BIT, BOA, BO B, BOG , BOO, BOT, BOW, BOX , BOY BR A, B U D, B UG , BU M 
300 DATA BUN.BUS,BUTBUY,BYE,CABCAD,CAM.CANCAP,CAR.CAT,CAW,CHI 
310 DATA COBCOD,COGCON,COO,CORCOR,COS,CCT,COW,COX.COYCRY,CUB 
320 DATA CU DCU E ,CU RC U R .CUT DA B, DAD, DA M , D AN , DAW.DAY, DEB. DEN , DEW 
330 DATA DID.DIE, DIG, DIM,DIN, Dip DOE, DOG.DOH, DON, DOTDRYDUB. DUD 

340 DATA DU E , DU G , DU N , DU Q, DYE, EAR , E AT, EB B, E E L , EGG , EGO, EKE, ELF, ELK 

350 DATA ELL.ELM, EMU. END,EON,ERA,ERE,ERG,ERR,EVE,EWE ; EYE,FAD,FAG 

360 DATA FAN, FAR,FAT,FAY,FED,FEE,FEN.FEW,FE Y.FEZ, FIB. HE, FIG, GIN 

370 DATA Fl R, FIT, FIX, FLU, F LY, FO R, FOE, FOG 5 FOR FOR, FOX, FRY, FUG, FUN 

380 DATA FUR,GAB,GAD,GAG,GALGApGAS,GAYGEE,GEL,GEM,GEN t GET,GIB 

390 DATA G IG ,G I N ,G N U,G O BGODGOG ,G O 0,GOT,G U M ,GU N ,G UT.GU Y,GYM GYP 

400 DATA HAD 1 HAG,HAH,HAM,HAP,HAS 1 HAT,HAW,HAY.HEN,HER,HEW.HEX.HEY 

410 DATA HID,HIM.HIP.HIS.HIT 1 HOB,HOD,HOE,HOG,HORHOTHOW,HUB,HUE 

420 DATA HUG,HUM,HUT,ICE : ICY,IDE,ILK.ILL,IMRINK 1 INN.ION,IREJRK 

430 DATA IVYJAB,JAG.JAM,JAP,JAR,JAW,JAY,JET,JEW,JI&JIGJOBJOG 

440 DATA JOT, JOY, J U G J UT, KEG , KEN , KE Y, Kl D, K I N , Kl P. Kl T, LAB, LAD, LAG 

450 DATA LAH,LAM,LAP,LAW.LAX,LAYLEA,LED,LEE,LEG,LETLID,LIE,LIP 

460 DATA LIT, LO B. LOG , LOO, LOR LOT, LOW, LU G , LYE , MA D, MAG , MAN, MAP MAR 

470 DATA MAT, MAW, MAX , MAY, MEN , M ET, M E W, M I D, M I X, MOB, MOD. M OO, MOR MOW 

480 DATA MUD.MUG. MUM. NAB, NAG. NAP NAY,NEE,NET,NEW ) NIB,NIL,NIRNIT 

490 DATA N IX, NOB, NOD,NOG .NOR. NOT, NOW, N U B. N U N . N U T.OAF.OA K.O AR.OAT 

500 DATA OBI.ODD,ODE.OFF,OFT,OHMOIL,OLD,ONE,OPT.ORB,ORC,ORE,OUR 

51 0 DATA OU TOVAjOWE ,QWL ,QWN , PA D, PA L , PAN , PAR PAR , PAS, PAT PAW, PAX 

520 DATA PAY PEA, P EG, PEN , PER PER ,P ET,PE W, PIE , P IG , PI N , P I R PIT, PLY 

530 DATA POD,PORPCT,POX,PRY,PUB,PUD,PUG,PUN,PURPUS,PUT,RAG.RAJ 

540 DATA RAM.RAN,RARRATRAW,RAY,RED,REF,RERREV,RIB,RID,RIG.RIM 

550 DATA RIRROB,ROC,ROD,ROE 1 ROT 1 ROW,RUB,RUE 1 RUG,RUM,RUN,RUT 1 RYE 

560 DATA SAC,SAD,SAG,SARSAT.SAW,SAYSEA > SEE.SETSEW ( SEX,SHE,SHY 

570 DATA SIN,SlRSIR,SlTSlX,SKl,SKY 1 SLY,SOB,SOaSON.SORSOrSOU 

580 DATA S0W.SPA,SFV,STY,SU8,SUE3UM,SUN,SUFJABTAG,TAN,TARm 

590 DATA TATJAWJAXTEAJEE JEN JH E JH YJICJI E JIG Jl N XI RT IT 

600 DATA TODTO E XON XOO.TORTOR JCTTOWTOYTRYJU BJU G TU N JUT 

61 0 DATA TWO.URN ,U SE VAN VATVETVEX.V I A VI E ,VI M ,VlZ,VOW.WAD,WAG 

620 DATA WAN .WAR,WAS,WAX,WAYWEaWED,WEE,WEN,WET,WEYWHO.WH YWlG 

630 DATA WIN,W|T,WOE,WON,WOO,WOW,WRYYAKyAM.YARYAWyEA,YEN,YES 

640 DATA YETyEWyON YOU.ZEN.ZIRZOO 

650 DATA 1/11 76.104,132,153,184.211,242,254,271,278,304326.347 

660 DATA 370,405.405,435,472506308,517,540540551,553 
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The April Answer 



Remember how we couldn't fit last month's Answer in? 
Well, here it is. Along with some of their poetry . , . 



Sector 

20 
1 

18 
4 
13 
6 
10 
15 
2 
17 
3 
19 
7 



Final Score 




1 



1 



Cube root 
of X 

16 
1 

25 



17? 8 




216 

27 
343 

64 
1000 

64 
1 25000 




3 
11 

14 

9 

12 
5 



8 
1000 



9261 
4096 
343 



8 
6 

3 
7 
4 

10 
4 

50 

5 

18 

2 

10 

14 

21 

16 
7 




Solution 

The final totals can be obtained by 
repeatedly summing up the scores as 
described, checking the running total at 
each stage to see if it is a perfect cube. 
However, for the larger scores this could be 
a very lengthy process. A fester result 



be achieved if it is realised that on the first 
circuit of the board, from each starting 
point, there is a series of twenty ascending 
subtotals. For example, from sector 20 the 

series would run; 20, 21 ,39, 43, 56, . . . and 
so on up to a total of 210 after a full circuit of 
the board. Each subsequent circuit of the 
board would result in running totals of 
these scores plus successive multiples of 
210. 

Th e refo re i t i s faste nandm at he matical ly 
a lot safer s to take an ascending series of 
cubes and test each one to determine if it is 

e target score in the series 



+ R 



where n is any integer (including zero) and 
R is one of the subtotals for each starting 
score. 

In the program, the array sector holds 
the 20 scores from the dart board in 
clockwise sequence. These are read from 
the DATA lines, The bop DART takes each 
of the twenty starting scores in turn and 
computes the twenty subtotals from the 
first circuit of the board, These are held in 
array RESIDUE (lines 110 — 150), 

An ascending series of cubes is then 
tested to determine if it could be apossible 
score. This is done by dividing the cube by 



210 and taking the remainder If this re- 
mainder is one of the residues in the array 
then a possible result has been found- In 
practice, the remainder is found by 
repeatedly subtracting 210 from the 
number under test. 



m 

10 


PIH SECTOR (20) 


, RLE 1 DUR (, 2 0 ) 




20 


Restore 






30 


FOR N=l TO 20: 


FEAO X i SECTOR 












100 


FOR DAHT=1 TO 


20 




110 


T-0;F=DAftT 






120 


T^T*SECTOR(F) 






130 


RESIDUEt F]=T 






140 


F"F+l2 IF F-21 


THEM F=l 




150 


IF T*210 THEN 


200 ELSE 120 




200 


N=1:FL=0 






210 


C="N*W*N 






220 


R = C 






23U 


IF R<=210 THEN 






2 40 


R=R-210;GOTO 2 


30 




250 


FOR F=l TO 20 






260 


IF ft.ESIDUE(FJ = 


R THEN FRIMT 






SECTOR {DART) r C 


f N I FL=1 




270 


NEICT F 






200 


IF FJ>1 THEN 5 


00 




290 


tl = H*-l:GOTO 210 






500 


NEXT DART 






1000 


DATA 20,1,18,4 


,13,6,10,15,2, 


17 


1010 


DATA 3, 13 r 7, 16 


,B, 11, 14,9,12,, 


5 



The winners (an 
amazing poems, 
came the 




d non-winners) of the April Competition came up with some rill y 
Barely daunted by the fact that they had to rhyme with tangle', out 
(a distant relation of the Dragon) and the pentameters. 



Ode to despair 

MY wires are in a tangle 
My dongle will not dangle 
And life's one constant wran 
WhNe I'm looking for the a 
To this competition jangle. 

Alan Thomas 





The stacks of ribbon cables too 
Theyd make a lovely bangle 
With help from Sam, I'd love to ram 
The buffers as they dangle. 

The bus has lost control it seems 
It makes an awful jangle- 
But pointers from an 8K ROM 
Will sort out any wrangle. 



As his new kilt fell down 

'1 guess it will just have to dangle." 

Terry Potter, who s we a rs h e meant t he s porra n . 




Keep it short 



A long man am 
And stuck in a tangl 
Better perhaps 

Than stuck in a mang 
Richard Long 



The chips are dry, they ought to be 
I've put them through a mangle 
Which also wrecks my faith in HEX 
When flattened like rectangles. 

Pvly Dragon's roar is muted 
I'll use my last try-angle 

For me the grog, for it the prog 
That s it! My greatest wangle. 

Fred Witters 



Has bin 

A Dragon I thought with a grin 
Will help nrie these puzzles to win 
But their logical tangle 
Just makes my brain jangle. 
Well, just one more try and then - 

M. Armitstead 



bin 




Dreadlock 

Let us strangle with a bangle 
Or entangle with a mangle 
Those who coerse from us 
Deserve this curse or something 




verse 
werse 



Epic 

MY poor old Dragon's all confused 
It's really in atangfe 
It's full of bits, the keyboard fits 
At such a funny angle. 



Criss Cross Crash 

There was a young Scot from Kirkangie 
Whose braces got caught in a tangle. 
He said with a frown 



PD.Madtjocks, who ran his poem straight on 
from his solution, and nearly lost points for 
writing such a long program before we twig gee 
that it generated the poem as well! 



Gentlemen, the Vogons 
doors in a week. 



be at your 
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j, a 




er investigates the powers of the 
untanqiinq some 





WHEN I heard that Mr Cadge was writing an article on the Forth 
language, I thought that it might interest some readers to read 
about my experience with the language. I add that I only have a 
limited experience and thus my viewpoint fs not far removed from 
that of a reader who might be wondering whether to take up the 
language. 

I bought a cassette version and as such it does not have the 
facilities of the fulf Forth system but it has g iven me a great deal of 
fun. Accounts of Forth usually pay great attention to the use of the 
STACK, often to the extent of failing to mention that there are 
facilities to store values in variables and constants as in Basic. It is, 
in fact, quite easy to translate a Basic program directly into Forth 
and this is how I started. 

I had to remember thai Forth uses integer arithmetic: at first 
this was a frightening concept, but it has not turned out to be 
a real problem. In fact, it has often been beneficial as I will 
illustrate in the examples below but before doing so I will return 
to a brief comment on the use of the STACK, 

in my (limited) experience, most of the fun in using Fo 
comes from careful planning to use the STACK to the limit 
Of one's nerve at the time, making judicfous use of variables to 
simplrfystack manipulation 

Systematic paperwork is crucial. I favour working in columns 
on A3 paper. In the left hand column i write the stack contents" 
with the most accessible item to the right (that is to say nearest 
to the centre of the page). Incidentally, it is conventional to 
describe the most accessible item as being on 'top" and I shall 
do so. in the centre column , in the next line, I write the operating 
instructions. In the left hand column of the third line, I write the 
stack contents after the instructions have been carried out. The 
effect is that each group of instructions has the 'before" and 
"after stack contents shown above and below it. If there are 
RETURN STACK instructions (see below), they are written in 
the right hand column with the lop' item nearest to the centre of 
the page; most often the Return Stack is used as a temporary 
store for items from the normal stack so this orientation is logical 
in use. It is as if the items flip across the centre of the page. 
Alternatively the third column is used for remarks. The examples 
that I have chosen are from Mr Lee's puzzle page. 

June puzzle 

This was to find a four-figure number which repeated itself after 
four cycles: in each cycle, the number has lo be squared and the 
central four digits have to be isolated for the next cycle. The key 
routine is that which isolates the central digits. In Basic it can be 
done with 'string' functions or by division and taking the integer 
pa rts of t he quotie nt o r rem a i n der as appro p r i ate. Forth ar it h m et ic 
is simpler because it is, by definition, in integer form. Note, the 
square has to be held as a 'double number' (or a 32^bit number) 
because it is too big for a normal 16-bit Forth number. For this 
reason I used the operator LT which multiplies two single length 
numbers to give a double length one. The procedure for 
manipulating the square is as follows: 




Note: 

The article by Brian Cadge, Dragon FORTH r appeared in DU 
February 198Z Brian Cadge was using NDUG FORTH, available 
from the National Dragon User Group, 6 Navarino Road 
Worthing, Sussex. Tel. Worthing 207585. IB. Slinger is using 
Teleforth on cassette from MicrodeaL on a Dragon 32 without 
the disc controller in place. A page of programs ussd in the three 
examples is printed at the end of the article. 




CYCLE: The purpose is as described. It needs an initial sin 
length number on the stack and finishes with another sin 
length number in its place. 





STACK 
seed 

seed 



OPERATION 



: CYCLE 



DUP IT 




square 

rem am der 
& quotient 

quotient 

remainder 
& quotient 

remainder 



100M/MOD 



ROT DROP 



10000 M/MOD 



REMARKS 
initial value 

inning 
no change 
duplicate 
& square 
double length 
divides by 100 
single length 
doubfe length 
drop remainder 
double number 
div. by 1OO0Q 



2DROP 



drop quotient 
new seed 

end of routine 






As will be shown below CYCLE is part of a larger routine, fn thai 
sense CYCLE is a sub-routine but it is also a complete program, 
The authors of Forth recognised that there was a problem of 
nomenclature; they kept their options open by coining the name 
to refer to such mini-programs. 

re moving on to talk about the larger routine, it is prudent to 
check that CYCLE does do what it is supposed to do. There are two 
things to check. The first is whether it does, in fact, isolate the cen- 
tral four digits of a square. The second may be unexpected to a 
Basic programmer but it is vital to Forth; does the routine leave 
stray numbers on the stack, or does it steal numbers off the stack? 
Ifeither happen s, i t i s a d isaste r. 

way to check CYCLEis t0 type a number, a space, the word 
tM$t E: a space - a dot ( whj ch means print a number), and then 
ENTER. The computer should display the answer and its ac- 
curacy can be checked for a whole range of numbers. It is 
necessary to check two and three digit numbers because such 

can arise(because of leading zeros) in the main routine. The stack 
effect can be checked by typing a dummy number before the 
seed, repeating the test and then typing another dot; all being 
well the computer should d isplay the dummy number 

Assuming that all is well with CYCLE, the main word JUNE- 
PUZZLE can be developed as fol I o ws : 

JUNE-PUZZLE: Print numbers which are repeated after 4 
CYCLES. It does not need a number on the stack and does not 
leave one behind. 



FORTH 

FORTH 
FORTH 
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empty 




OPERATION 



JUNE-PUZZLE 



10000 1000 DO 



empty 



counter fest seed 



CYCLE CYCLE 
CYCLE CYCLE 



REMARKS 
start 

(start of loop 
((ike FOR I = 
(1000 to 9999 

(3 copies of 
(loop counter 
see above 



counter test result 



counter 



empty 
empty 




lF.. i: YESXR 
ELSE DROP 

THEN 
.OOP 



empty 



(tests if 2 top 
(numbers equal 

{print answer 

(else drop 

(counter 
(end of it 

(like NEXT-STEP 
end of word 



The "word" takes about five to twelve minutes, It prints thirteen 
solutions, but twelve can be eliminated by visual inspection using 
some additional information given in the original article. The 
routine could be improved by using part of the AUGUST-PUZZLE 
routine instead of the DO LOOP As a final comment, it is easy to 
see a similarity with Basic but the Forth CYCLE is much neater 
than a Basic sub-routine would be. There is very little stack 
manipulation because very little is needed, There is more in the 
next example. 

July puzzle 

This involves division to 4000 odd decimal places. Each suc- 
cessive digit in the quotient is used as a direction indicator for a 
'step'. At firs - sight, the integer arithmetic of Forth would appear to 
be at a disadvantage compared with the floating point arithmetic 
of Basic but the reverse is true. With Basic : one has to take great 
care to avoid rounding-off errors by using a sequence such as : 

■ 

DIGIT = INTEGER of DIVISION 

REMAINDER = DIVIDEND- DIGIT*DIVISOR 
NEW-DIVIDEND = INTEGER of KTREMAINDER 

In Forth, the sequence 
OLD-REMAINDER 10 17389 VMOD 

gives the new remainder and the digit directly onto the stack. The 
digit is on l top' and available for determining the movement. The 
procedure is long division. 

A way to describe the movement is to think of a graph. A horizon- 
tal (East-West) movement is a change in the X-coordinate, a ver- 
tical ( no r t h-south ) move m e nt i s a ch an g e i n the Y-coord i n ale, an d 
a diagonal movement is a change in both, 

I imagined that the initial coordinates were 0,0 and tested to see 
if either had reached 50 after each move. Note that the co- 
ordinates were not variables as in Basic, they were simply 
numbers on the stack distinguished only on my piece of paper by 
their relative position on the stack. 

In designing the word, the most important decision was the 
order of the various numbers on the stack. The procedure involv- 
ed moving top numbers from the normal stack to the Return Stack 
to gain access to less accessible numbers as in the game Towers 
of Hanoi] t h i s is said t o be m u c h q u i c ker than p utt i n g n u rubers i nto 
storage as variables. 

The symbols for transfer to and from the Return Stack are >R 
and R> (imagine arrows). There Is also an instruction to make a 
copy of the top numbers from the Return Slack to the top of the 
stack ; it is R in my version of Forth but I believe that R@ is more 
usual. 



The consequence of this is that the part of the word which has 
th e i nte r-stac k tra nsf ers is d iff ic u 1 1 to b reak-u p in to s m a 1 1 pieces for 
testing purposes. So another technique has to be used; this 
involves use of the "Screens". These are a feature of Forth 
whereby it is possible to type a word onto a screen where it held as 
typed in textform , The contents can be 'loaded' (or compiled), and 
tested. Afterwards the screen's contents can be recalled and 
edited as necessary. This is a most useful feature. In the present 
instance, one could omit the loop structure and the long division 
initially. The rest could be typed in the centre of the screen, and 
checked, then the remainder could be added and the whole 
loaded and checked. 

The word is in six parts. The first part merely puts a seed 
remainder and 3 zeros onto the stack. From the top, the zeros are 
the X-coordinate, the Y-coord inate and an optional counter The 
second, third, and fourth parts of the word are in a loop and are 
repeated unti I o ne of th e c oo rd i nate s reac hes an a b s o I u te va I u e of 
50. 1 n t h e s ec o nd p a rt , th e coord i n ates are sh if ted onto th e Retu r n 
Stack. The counter is incremented and shifted across also. These 
actions expose the old remainder as the top element of the stack. 
The long division is the third part of the word. It leaves a new 
remainder and a quotient on the stack, The latter is on top and 
handy for determining the direction of the step. 

The next major part of the word is a whole series of IF ELSE 
TH EN tests. It is necessary to make a duplicate copy of the quo- 
tient for each test: when a match is found, the original quotient is 
dropped as no longer required. Depending on the value of the 
quotient, the counter and the coordinates are brought back onto 
the stack and changed as required. 

It is usual to show a series of IF ELSE THEN clauses in a in- 
dented form so that one can check which ELSE matches which 
THEN. 

However i n this case I decided to use a different presentation to 
make it easier to see how the routine works and, more important, 
to make it easier to check the stack effect. Each route must leave 
the Return Stack empty, and the stack with, from the lop, X- 
coordinate, Y-coordinate, counter, new remainder. 

In the fifth part, the two coordinates are duplicated, 'OVER 
OVER' and the copies are tested to see if either has reached the 
critical value. If so the result is printed, if not the calculation is 
repeated. The presentation of the result is not as specif ied in the 
Dragon User but can be converted into the correct form. 

JULY-PUZZLE: The routine does not require an initial value to 
be put on the stack, and does not leave one behind. 



STACK 



OPERATION 






; JULY-PUZZL 
10000 0 0 0 



seed counter 
Y-coord X-coord 

no change 



(& remarks) 

(beginning) 
(values) 




IN 



>R >R 1 + )R 



seed = remainder 



10 17389 VMOD 



remai 




quotient 



DUP 1 = IF DROP R> R} 1 + R) 
ELSE DUP2 = IFDROPR) R) 1 + R)1 + 
ELSE DUP 3 = IF DROP R) R) R) 1 + 
ELSE DUP 4 = IF DROP R> R) 1 ~ R}1 + 
ELSE DUP 5 - IF DROP R> R> 1 - R) 
ELSE DUP 6 — IF DROP R> R> 1 -R)1- 
ELSE DUP 7 - IF DROP R> R> R> 1- 
ELSE DUP 8 = IF DROP R) B> 1 + R>1- 
ELSE DROP R) R> R> 

THEN THEN THEN THEN 
THEN THEN THEN THEN 
remainder counter 

Y-coord X-coo rd (em pty) 



(begin loop) 

COUNTER Y-X- 
COORDS 

(long div'n) 
(no change) 
(of RET. STACK) 
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RETURN STACK 
OVER OVER {see text) 



as above + 

copies of 
coords 

as above 

except flag 
instead of 
copy of X-coord 



50 = (test X-coord) 



SWAP (copy of 

(Y-coord top) 
ABS 50 = (test Y-coord) 



remainder counter 
Y-coord X-coord 
flag flag 

OR (either true?) 

remainder counter 
Y-coord X-coord flag 

UNTIL (end of loop) 



remainder counter 
Y-coord X-coord 

empty 



(structure) 



(print out) 

(end of word) 



Before leaving the description of the JULY-PUZZLE, it is worth 
explaining what "/MOD' does. It multiplies two single length 
numbers to a double length number which is then divided by a 
third single length number; there would be an overflow error with 
the combination of A V and 7MOD' as this only has a single length 
intermediate product (10 times 10000 would be too big for it). 




This is a much bigger problem altogether The idea is that the 
words DRAGON and USER represent two numbers. Each dif- 
ferent letter is a different digit. 

We are told that if the one is d ivided by the other, it will give a two 
figure integer quotient. The cube of this will produce an English 
word if its digits are substituted by the letters used in the original 
code words. 

Conceptually there are two ways to proceed. Either one can 
synthesis© all possible DRAGON and corresponding USER 
words and check whether the product meets the criterion of dif- 
ferent digits, 

A I th ou g h th e f i rst i s easie r to u ndersta n c . it act u a 1 1 y i n vo I ves f i ve 
times more combinations and hence takes five times longer. So I 
will describe the other method. 

Th e key part is how to i n d ic ate w h et h e r a partic u I ar d ig it is bei ng 
used or not , In Basic, one could use an array to store flags. The 
same is true of Forth, but one has to define the array first. In 
English, an array could be defined as a group of storage 
addresses starting at a known address. This means that any 
location can be described by quoting an index number from the 
starting address. In my version of Forth such a structure for 10 
locations, can be defined by: 

0 VARIABLE NAME 8 ALLOT 

VARIABLE reserves storage for two bytes and 8 ALLOT reserves 
storage for eight more. The start address is given by "NAME". So 
8 NAME + or NAME 8 + is the address of the ninth storage; more 
correctly it is a number which equals theaddress but it will be used 
as an add ress in this article. NAME could be almost anything , but 
luseZERObecauseZEROS + is suggestive of the way in which 
it will be seen to be used, 

Th e sto rages in the a r ray are used to store flags to s h o w w heth er 
the corresponding digit is being used. I use the number45loshow 
vacant , as th is i s th e ASC 1 1 code for — ' an d t he ASC 1 1 code f or th e 
letter equivalent to the digit for 'occupied'. Thus if U is equivalent 
to 4, then the address ZERO 4 + contains 85. The advantage of 
this system is that Forth has a most useful word EM IT which prints 
the letter equivalent to an ASCII code. Thus 



4 ZERO + C@EMIT 

■ 

would print U. C@ is the instruction to fetch (read) a single byte 
from an address, Jumping ahead to the ultimate decoding of the 
cu be numbers, this is done by breaking the number into a list of 
digits and using each one to EMIT the corresponding letter. It will 
be notic ed t hat I u se ASC 1 1 c odes to r u ppe r case U S E a nd R and 
lower case codes for the other letters. 

Th is is becau se th ere are many decod e j obs to b e do n e f o r eac h 
value of the USER number and it is easy to write a word PURGE 
to remove the lower case codes from the array without affecting 
the upper case codes. 

Two other general points need to be explained. First it is 
pointless to multiply a USER number by a2 figure number which 
is too small to give a 6 figure quotient ; the word LOW-LIMIT 
calculates a minimum multiplier. 

The second point is that the most searching criterion for possi- 
ble DRAGON numbers is to check whether the second digit is the 
same as the last digit of the USER number By trial only 10 % of the 
possibilities pass this test so it is efficient to make it the first in the 
testing routine. 

The word TEST begins with the USER number and the 
multip ier on top of the stack. 1 hey are cop erJ and multiplies to a 
double length number (using U*) ; for the purposes of reference I 
call it DRAGON. It is first divided by 10000 to break it into a re- 
mainder AGON and a quotient DR which is then divided by 10. The 
remainder is checked against the true value of R which is recalled 
from the variable R-TRU E. It is a reverse check. IF the values are 
different, the test ends in failure. ELSE leads to further checks. In 
the event that any check after the first gives a satisfactory result, 
the appropriate storage receives the appropriate lower case 
ASCII code. If all checks are satisfactory control passes to the 
word DECODE. 

DECODE begins with a print-out of the multiplier, USER. 
DRAGON, and the cube. The cube is decoded as explained 
previously. A feature to note is that the order of the digits js 
reversed twice so that the end result is the right way round. Control 
then reverts to TEST 

The combination of TEST and DECODE makes sure that the 
array is PURGEd of lower case codes when necessary. The com- 
bined routine requires the USER number and the multiplier to be 
on the slack at the outset, and returns to the main routine without 
the multiplier. The overall stack effect is :- 

other items. USER, multiplier —) 
other items, USER 

The other items come from the number selection routine. 
The number selection routine is four nested DO LOOPS. The 

outer one selects the U digit and has first choice. It marks the 
array as explained. The other digits are selected one by one, 
In each case there is an IF test of whether the cell in the array 
is occupied (IF it is the number is rejected) ELSE the array 
cell is reserved and control is passed to the next DO-LOOR 
It leaves a copy of the digit on the stack which is used for 
calculation purposes and for releasing the array cell on the 
outgoing side of the loop. For the sake of clarity I show the DO 
LOOPS separately but there is no objection to typing them in 
one structure. 

After the R digit has been selected, the ELSE clause charges 

the variable R-TRUE, and calls the word CALC to calculate the 
value of the USER number. Then it calls the word LOW-LIMIT to 
calculate the minimum value of the multiplier. 
The main bulk of the routine is done in a central DO-LOOP. The 

loop counter is placed on the stack and the word TEST is called. 

The workings of TEST and its dependant words PURGE and 
DECODE have already been described. The whole routine is 
summarised in a diagram using a sort of "pidgin English/Forth" 
Elements of each structure are directly underneath each other to 
sh ow how t h ey fit tog et he i S uch a n overview is u sef u I becau se t h e 
sub- words have to be typed first. Even before the sub- words, one 
defines the three variables as follows: 

0 VARIABLE ZERO 8 ALLOT 
0 VARIABLE R-TRU E 

0 VARIABLE ? DIGITS 
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■ 



PURGE: There is no stack effect. The word 
In the array which is greater than 96 by 45, 



replaces any value 



STACK 


OPERATION 


j 

REMARKS 


empty 








: PURGE 


start nf wrsrH 


empty 


10 0 00 I 




counter 








/hRO + DUP 


calc address 


addr ? addr 1 








C@ 96 


test contents 

of address j 


addr' flag 








IF DROP 


if lower drop 


empty 






ELSE 45 SWAP C 


! etse replace 


empty 






THEN LOOP; 


end 



CALC: 

contains fo 
top. The 
use of the 



Calculates value of the USER number. Assumes stack 
r digits corresponding toU S Eand R, with the last on 
ine places the USER number on top of these. Makes 
urn Stack for temporary holdings of S E R . 










STACK 


OPERATION 


Fib E URN STACK 






(& remarks) 


user 




(4 digits) 


r 


:CALC 


(start) 


no change 






u 


>R >R >R 


s e r 




DUP 1000* 


u iooo;u 




ser 




R 100 * + 




u ' u - " 




s e r 




R> SWAP 




Uu s "u s - " 








R 10 ' + 




ys u use" 




e r ^0 




R > SWAP 




u s e "u s e - 




r 




H + 




use £, u s e r" 


r 






R) SWAP 




us e r'USER" 




(R/S emptyj 




- 


(end of world) 


LOW-LIMIT: Calculates value of r 


ninimum multiplier (100.000/ 


USER). Expects to I 


find USER on top of the stack. Places resu It on 


top of it . 






STACK 


OPERATION 


REMARKS 


user 








: LOW-LIMIT 


start 


no change 








1000 OVER 


to avoid 






double 


user 1000 user 




length 






mufti plication 




100 SWAP 


user 1000 


100 user 








(double length) 


user result 




(intermediate) 








■ 

P 


end of word 



DECODE: Expects to find user number' and 'multiplier' on the 
stack. Organises print-out of multiplier, user dragon & cube. 
Decodes cube and prints as a word. Removes multiplier but 



leaves user number on the stac 
7DIGITS to store the number to 
from the value of the multiplier). 



k. Routine requires a variabl 
digits in the cube (as calculated 



■ 

STACK 


OPERATION 


REMARKS 


user, multiplier 




See above 




: DECODE 


start 


no change 








DUP. 


prints mult. 


no chance 






OVER DUR 


prints user 


user mult, user 








OVER IT D. 


prints draaon 


user, mult. 








DUP 22 < IF 


mult, controls 




4 ?DIGITS I ELSE 


size of 




OUP47 ( IF 


cube, noted 




5 ? DIG ITS ! ELSE 


in ?DIGITS 




6 ? DIG ITS ! THEN 


THEN 

PIT ■■■ 1 ^1 


user mult 








DUP DUP * U* 


caics. cube 


user, cube 








2DUP D. 


prints cube | 


no change 








?DIGITS @ 0 DO 


(divide by 10 




10 M/MQD LOOP 


(manv times 




2DROP 


(drop quotient 


user, digits 








?DtGlTS@ 


(no. digits 




0 DO ZERO + 


(calc address 




C@ EMIT LOOP 


(print word 




CR 


carrier ret. 


user 


1 


end of word 




TEST: Breaks a 6 digit number into individual digits and 
if already used. If so the routine ends, else it calls 
. Where needed PURGES the array. Passes user & 
multiplier on the stack to DECODE. As noted above DECODE 
returns user only. 




OPERATION 




STACK 
user,mult 



no change 

OVER OVER IT 

as above + dragon 

10000 IWMOD 
DROP 

user,mu(t : agon,dr 

10/MODSWAP 

user, mult ,agon,d,r 

R-TRUE® — 

ABS0 > 
usenmulUgon, d^lag 

F DROP DROP 



REMARKS 
see above 
start of word 

calcs dragon 

(divides 

(16-bit quot. 



to top 



(read vafue 
(& compares 




ELSE ZERO + 
DUPC® 

50 > 

user, mult agon r adr„f Fag 

I F DROP DROP 
DROP 

ELSE 100 SWAP 

user,mult,agon 

10/ MOD SWAP 

user, mult ,ago,n 

ZERO + DUP 
C@ 50 > 



(failure 

(cafe addr. 
(read value 
Coceu 




(failure 
C! (reserve 

n fo top 

(calc addr 
(occupied? 
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olAUrS. UrknAHU^ 




use r, m u i t ^ago^o □ r, nag 




lr UrtUr UHUr' 




UHUr FUHCah 




tLbt llU oVvAr Uf 


(reserve 


USeriTiUll.ayO 




10/MUlJ bWAP 


o on top 


user.rnultag.o 




7c da i ni ID 

itnU + UUr 


i.ClUC audi 




/ J*™! i i k^i i v%. vJ J *3 

(OCCUpiOu r 


user, mui* ,ag .aoonjiag 




lr Uhur UrtUr 




UHUr rUnut 




fcLofc 111 ovVMr' 


JT k f~- in 

tr&serV'e ; 


user, mult ,ag 




10 /MUU bWAr 


g on top 


user.rnultja.g 




I i-CrivJ + UUr 


(caic aoar 


/""■i x ~\ r~ jTi "i. 

Cfe 1 50) 


(occupied? 


■ ^B^V H HHHH . ■ 1 bibb MM ^H^H i^U 1 ■ H fH_^H 

user,mult 3 a 3 addr s Tlag 




lr UHUr UnUr 




nDPiP pi innc 




CI C C iri 0 Ci D l** 1 1 


(reserve 


usermuit,a , 




1U/MUU UHUr 


{a on top 


ZERO + DUP 


(calc addr 


Cfe 50 ) 


(occupied? 


user.mult^darjlag 




lr UHUr UnUr 




pi jRfiC 




ELSE 97 SWAP C! 


(reserve 


DECODE PURGE 


see text 


THEN THEN THEN 




THEN THEN THEN 




i 
1 


word end 


user 





R- SELECT: Selects the R -dig it & places on stack. Uses it to 
calculate address and look at contents, if address occupied, d igit 
is rejected, ELSE it is reserved by ASCII code for R. Charges 
variable R-TRUE ; calls CALC to calculate the l USER p number. 
Calls LOW-UM IT to calculate the minimum value of the multiplier 
For every value of the multiplier, places the loop counter on the 
stack. At this point the top elements on the stack are a copy of the 
R-digit, the user number, and the loop counter. Then TEST is 
called for each value of the multipl ier. Afterwards when the loop 
has been completed, the USER number is dropped ; the array 
ad d ress is rel eased us i n g t h e val u e of t he R d i git from th e top of t he 




STACK 


OPERATION 


REMARKS 


u.s.e 




initial 






values 




: R -SELECT 


(start 




10 0 DO I I 


(loop counters 




ZERO + DUP 


(calc addr. 


u&e,^ addraddr 








c@ SO > 


occupied? 


u.s.e^r, ad dr. flag 








IF DROP DROP 


reject it 




ELSE 82 SWAP CI 


reserve it 


u,s,e,n 


DUP RTRUE ! 


fill variable 


no change 








CALC 


user number 


u,s ^r.user 


LOW-LIMIT 


(limits 




100 SWAP 


(for loop 


u ,s , e, r,u ser, 1 00, iow-l i m i t 




DO 


inner loop 




I Ib-ST 


see TEST 




LOOP DROP 












ZERO + 


calc. addr, 


u,s,e,addr 








45 SWAP C! 


free number 











THEN LOOP ; 


end of word 



E-S ELECT: As R -SELECT picks next free digit and reserves it by 
storing 69 (ASCII code For E) in ihe array. Places value of digit on 
the stack; calls R-SELECT. Uses the value on the stack to release 
th e a r ray add re s s . S-S E L ECT is id e nt i ca I except that it stores S3 in 
the array and calls E-S ELECT. 



STACK 


OPERATION 


REMARKS 


I I c 








. E-S El FCT 


start 




10 0 DO 


(loop 






counters 




ZERO + DUP C@ 


calc addr 




50> 


occupied? 


u,s,e. addr, flag 


IF DROP DROP 


reject it 




ELSE 69 SWAP C! 


reserve it 


u.s.e 








R -SELECT 


see above 










ZERO + 45 






SWAP C! 


release it 


u,s, 


THEN LOOP ; 


end of word 



U-SELECT: Reserves a digit between two and nine by storing 
85 (ASCII code for U) in corresponding address of array. Places 
digit on stack. Calls S-S ELECT. Afterwards uses the digit to 
release the address of the array. The overall stack effect is 
neutral. 




OPERATION 



empty 



: U-SELECT 
102 DO 1 1 



REMARKS 



start of word 




counter = u, counter 




r 



j 



ZERO + 



3b SWAP C! 



S-SELECT 



calc addr. 



reserve 



i 



SWAP C! 

empty 



LOOP 



ZERO + 45 

(free addr) 
(end of word) 



AUGU ST-P UZZL E : M ai n word of routine. Emptiest he array an d 
calls U-SELECT. All the routines have already been defined and 
ca.l I one another as required with the result that the final definition 
is very brief. 



STACK 


OPERATION 


REMARKS 


empty 


: AUGUST-PLWLE 
ZERO 10 45 FILL CF 


see above ; 


empty 








U-SELECT ; 


end of word 



The word takes about 50 minutes which compares very 
favourably with the running time of its BASIC counterpart. The 
latter took between three and four hours. 

Concluding observation, I have hada great deal of fun planning 
the programs described above and ! hope that I have interested 
one or two other readers to try FORTH. In writing the account I 
h ave d raw n h ea v i I y o n t h e Ma n uai t h at ca me wit h my cassette and 
upon a book called The Complete Forth by Alan W infield, pub- 
lished by SigmaTechnical Press. I should like to thank the authors 
of the two sources. 



12 Dragon User August 1987 



V i CYCLE DUP U* 100 


m/mod 


ROT 


DROP 100i 


30 m/mod 


2DR0P 


-i 

3 


: JUNE-PUZZLE 1000 


0 1000 


DO 


I I I CY 


CLE CYCLE CYCLE CYCLE 


= IF . - 


" YES " 


CR ELS 


E DROP 


THEN LOOP ; 






: JULY-PUZZLE 10000 0 0 


0 BEGIN 


>R >R 1+ 


>R 10 17389 */MOD 


DUP 1 = IF 

EL 


DROP R> 


R> 1 + 


R> 


DUP 2 = IF 


SE 

DROP R> 




R > 1 t 


ELSE 






DUP 3 = IF 


DROP R> 


R> 


R> 1 + 


EL 

DUP 4 = IF 


SE 

DROP R> 


R> 1 - 


I5R> 1 t 


ELSE 






DUP 5 = IF 


DROP R> 


R> 1 - 




ELSE 






DUP 6 - IF 


DROP R> • 


R> 1 - 




ELSE 






DUP 7 m IF 


DROP R> 


R> 


R> 1 - 


ELS 
DUP 8 = IF 


E 

DROP R> 


R> 1 + 


R> 1 - 


ELSE 


DROP R> 


R> 


R> 


THEN THEN THEN THEN 


THEN 


THEN 


THEN THEN OUER OUER 


ABS 5 


0 = 


SWFiP ABS 50 

m 


= OR UNTIL 




m m- m m i 




2 LO 


AD ;S 


0 UARIABLE 


ZERO 8 


ALLOT 




0 UARIABLE 


R-TRUE 






: PURGE 10 


0 DO I 


ZERO t 


DUP 


C@ 96 < 


IF DROP 


ELSE 45 SWAP 


CS THEN 


LOOP t 






: CALC >R >R >R DUP 


1000 


* R 100 


* + R> SWAP R 10 * 


+ R> 


SWAP 


R + R> SUA 


P ! 






: LOW-LIMIT 1000 OUER 1(?0 SWAP 










0 UARIABLE 


7DIG1TS 






:■ DECODE Dl 


JP . OUER DUP 


. OUER 


U* D. 








DUP 22 < IF 4 7DIGITS fi 1 


ELSE 


DUP 47 < IF 5 7DIGITS 2 1 


^LSE 


6 7DIGITS 


2 THEN THEN 




DUP DUP * U* 2DUP D. 




7DIGITS @ 0 DO 10 i 


rvriOD I 


LOOP 


7DIGITS @ i 


3 DO ZERO t C@ 


En i t 


LOOP CR J 








3 LOAD JS 









: TEST OUER OUER U* 10000 M/MOD 

DROP 10 /MOD SWAP R-TRUE G - 

ABS 0 > ^ 

IF DROP DROP DROP 

ELSE ZERO + DUP C@ 50 > 

IF DROP DROP DROP 

ELSE 100 SWAP C? 10 /MOD SWAP 

ZERO + DUP C@ 50 > 

IF DROP DROP DROP PURGE 

ELSE 110 SWAP C2 10 /MOD SWAP 



ZERO + DUP C@ 50 > 
IF DROP DROP DROP PURGE 
ELSE 111 SWAP CS 10 /MOD SWAP 
ZERO + DUP C@ 50 > 

IF DROP DROP DROP PURGE 
ELSE 103 SWAP C2 10 /MOD DROP 
ZERO t DUP C@ 50 > 
IF DROP DROP PURGE 
ELSE 97 SWAP C2 
DECODE PURGE THEN THEN THEN 
THEN THEN THEN ; 

: R-SELECT 10 0 DO I I 
ZERO + DUP Cfi 50 > 
IF DROP DROP ELSE 82 SWAP CS 
R-TRUE 2 CALC LOW-LIMIT 
SWAP DO I TEST LOOP DROP 
+ 45 SWAP C2 THEN LOOP ; 






4 LOAD JS 



: E-SELECT 
10 0 DO I I ZERO 
IF DROP DROP ELSE 
R-SELECT 

ZERO + 45 SWAP C2 THEN LOOP 



+ DUP CS 50 > 
69 SWAP C2 



: S-SELECT 

10 0 DO 1 I ZERO + DUP C@ 50 > 
JF DROP DROP ELSE 83 SWAP C° 
E-SELECT 

ZERO + 45 SWAP CS THEN LOOP ; 



: U-SELECT 

10 2 DO I I 

ZERO + 85 SWAP CS 

S-SELECT 

ZERO + 45 SWAP CS LOOP 



■ 



s AUGUST-PU22LE 
ZERO 10 45 FILL CR 
U-SELECT ; 
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Fill array with ASCII codes for minus sign (45) 



DO 



if 



selec 

DO 




t & reserve U-digit between 2 & 9) ,T 
"select S -digit between 0 & 9" 

IP "reject if occupied" 

ELSE fl reserve it" 

DO "select E-digit between 0 £ 9" 

IF "reject if occupied" 
ELSE " 

DO "select R-digit between 0 & 9" 

IF "reject if occupied" 
ELSE "charge R-TRUE" 

"CALC user number" 
"calculate LOW-LIMIT" 
DO "between LOW-LIMIT & 
"TEST >DECODE" 

"PURGE if needed" 

LOOP 

DROP "user number" 



IDO 1 




J 



LOOP 

"release E-digit" 



THEN 




- - 



"release S-digit' 




LOOP 

"release U-digit" 

LOOP 



S,P. ELECTRONICS 



Complete Dragon Spares and 




ervice 



zen 120D 
Dot Matrix 
nter(NLQ) .... 

Ferguson Green 
Screen Monitor. 



£199.00 



£64.00 




reen 
Monitor 



£85.00 



Philips Ambe 
Monitor... 



£95.00 



Parallel Printer 
Cab 



£12.90 




ELECTRONICS 

48 Limby Road, Hucknall, Notts 
(Nottingham 




VfSA 
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Structure oi main prog ram for August puzzle. 



GROSVENOR SOFTWARE 

SUPERDOS: Dragon DOS compal bio disK operating system without the bugs 
Mike Ksrry, author ol ALLD REAM has gone far beyond the patches listed in DU 10 
produce a really reliable- DOS at last. Slrongly recommended as an upgrade tor all 
DragonDGS Utl 1 4.0 and Cumana 1 . 2 f 2.0 u sens. 

SUPER DOS ROM to f ii y ourseM . with I u II doc u ir entalion: E1 0.00 

Or send us your disk compiler for updating. £12.00 
Programmer s Guide to Dragon.'SuperDOS - a most useful book £2-50 
See PIMP CommunicalBOnis ad. for complete controllers- and disk drives. 

ALLDHEAM: The- standard Dragon Editor/Assembler far machine code work. 
ALL DREAM; Tape E12.95 Carl. £24,95. DSKDREAM for SuperDOS etc £19-95 
C ROSS REFERE NCE LIST E R for Basic progra m s. An i n valuable aid . £5.00 
DRS: Hie fastest Dragon database. Tape (can pul to disk) £9.95 

AMATEUR RADIO ENTHUSIASTS: Now available - AX25 PACKET RADIO by 
G4BMK. Only Qrosvenor Software have the k new-how \q bring you this exciting 
naw mode at an affordable price. Send SAE for fult details. 
RTTY - ON - AM TOR - SSTV - Morse Tutor - Maidenhead - all available. 

Pfease acJd 40p PAP (£1 export). Send SAE for full dtetaife. 

2 Hfiarnn Clos*, Sflafonl* East Sussex BN25 2JZ (0323) 893373 m2 



IF any reader does have serious delivery/non 
delivery problems with any supplier, whether or 

not they advertise in DU, we would l ike to know. 
Only rarely can we do anything to improve a 
genuinely dodgy situation (which fortunately 
are rare) but it helps us to build up a profile and 
i d e n t i f y any I o n g- te r m prob I ems . Co me to t h i n k 
of it, that includes Dragon User, as, naturally, we 
want to know about any bottlenecks as early as 
possible. Apologies in advance for not 
acknowledging every letter, but where we can 
be of practical help, we will. 



Winners and Losers 



WE wuz positively snowed under with 
replies to the March competition, many 
from read e rs e n te ri n g f o r t he f 1 rst ti me — so 
who said it couldn't be done! Admittedly, 
the problem was a bit easier than many, as 
requested by a number of Dragon users 
who had thought that our usual competi- 
tions were a bit on the steep side. In fact, a 
number of readers found the problem a lot 
simpler than I had intended — an extra 
bonus! But more on that later. 

The only real difficulty that I can en- 
visage was the 'ghost* space which is 
placed at the beginning of a string vari- 
able which is created by the computer 
when utilising the STRS command. Thus 
X = 12345 : x$=STR${X) wilt produce a 
string variable, XS, which is six characters 
long, the first character of the string being 
a space in which there is room for an 
invisible + (positive) sign. In relation to the 
competition, if string variables are created 
in order to check the digits in certain posi- 
tions, it has to be remembered that the first 
digit of the number is in the second posi- 
tion of the string. The easiest way of deal- 
ing with the problem is to remove the 
leading space immediately that the string 
has been created, by the use of the line 
XS=MID$(XS,2). This will then restore 
each digit in the string to its logical 
positioin. Only one entrant actually admit- 
ted to ha v i n g bee n c a ug ht o ut by t h i s at f i rst 

after his original program failed to produce 
an answer. 

Most readers realised that it was only 
necessary to test for numbers in the range 
1000 to 3162 — that is those numbers 
whose squares have seven digits. 
However, many readers discovered simple 
proofs that the upper limit need be no 
greater that 1999, the final digit of the 
square must be T, and that the thi rd digit of 
Ithe number is not greater than & I can do 
no better than quote from G.A.Hunt of 
Carnforth who writes; 

"Let N be the four figure number and P 
be its square, Then since P is a seven 
figure number its square root must be less 
than 3142, and sothefigureof N must be 1, 
2 ; or 3. But only 1 is a possible last digit for 
a square. Sothe first figure of N must be 1. 
From this it follows that the first figure of P 
must be 1, 2, or 3, and hencethethirdfigure 
of N must be 1,2, or 3. A perfect square 
ending in 1 can only be produced by 
being the square of a number ending in 
1 or 9; hence the last digit of N must be a 1 
or 9. 1 

This reduction in the number of possi- 
bilities requiring to be tested was a 
frequently expressed idea : with many 
entrants giving the running times of pro- 
grams. The following is a representative 
sample: 

Hugh Somerville: 3 hours 
John Blatch: 2 hours 
R. Growth en 6,75 minutes 
Simon Hargrave 4 : 49,5 seconds 
James BonfiekT; 36 seconds 
T-H. Denton: 10.96 seconds 




(The * denotes the use of the 'speed poke r 
in the program)- 

The apparent simplicity of the competi- 
tion certainly brought out the competitive 
spirit in many readers who, flushed with 
heady intoxication of so simple a task, 
came up with a variety of novel ap- 
proaches From R.Crowtherof Rotherharr 
came a solution in only one program line, 
while Chris Fry of West Wickham found a 
couple of alternative solutions were possi- 
ble if the numbers were reversed in the 
grid . If thesqu are i s re ve rsed the on ly sol u- 
tion is N = 10GO, while if N=2835 the grid 
can be filled if N is reversed and is entered 
as 5382 

Regular competitor Paul Weedon de- 
cided to eschew the conventional 'IF 
MID$(!$,3,1) = MID$(J$,1 f 1) J approach, 
a nd t wi th t he reckl ess aban don of o n e wh o 
prefers to abseif despite the fact stairs are 
provided, came up with an a Iter naive pro- 
gram utilising the powerful INSTR func- 
tion. For readers who are not familiar with 
this command which searches for a 



Every month, Gordon Lee will 
look at some prize programming 
points from a previous month 's competition 



'target 1 string within a longer string, Paul 
has provided the following analysis of his 
routine: 

1$ is the numberandj$ is its square. Line 
4 checks for the occurrence of the first 
digit of JS starting from the third position 
in IS. If it is not there it goes to the NEXT I, 
otherwise it passes on the lines 5, 6, and 7 
which check for the otherthree digits, Une 
* is a cross-check which if the other re- 
q u i rem e nts are sat i sf acto ry ( wiltg i ve th e re- 
quired answer. 

This goes to demonstrate that there is 
more than one way to swing a cat — or is it 
'boil an egg'? Une 1 in this program is the 
'speed' poke which should be omitted if 
your computer is not able to handle it. The 
INSTR command that Paul uses returns 
ttie position of the target string within the 
longer string . Thiscan be demonstrated as 
follows: 



X$= "ABCDEFGH IJKLM"; 
Z=INSTR(X$:'F f '):PRINTZ 

This would give variable Z the value of 6 
since the F is at the 6th position in the 
string X$. A third parameter can be 
specified when using this function if you 
wish to search for the 'target' starting from 
a position inside the string to be searched. 
So, for example, Z = INSTR(7,X$;F) would 
start the search at character number 7 in 
th e str i ng . i n th e above exa mple. t h e ta rg et 
fc F' would n ol now be f ou ndand sothe com - 
p u le r w i II asc ribe a va I u e of ze ro to va ri a ble 

Z 

Finally, I would like to thank the following 
for their good wishes: Mark Griffin of 
Dublin, Chris Fry of West Wickham : 
Graham Barber of Sutton Coldfield! 
Austan Henderson of Bromsgrove, and 
Lindsey Edwards, Chris BoutelL Mum , and 
Plod the cat. of Huntingdon. 



R . Cr owther ' s solution in one line: 

1 FORN-10 00TO3162:N$ = STRS(N) : S $ = STRS ( N*N } ■ FOR 
D=2TOB :NS(D)*MID$(NS,D, 1 ) ■ : S$ ( D > =MID$ [SS , D, 1 ) ; 
NEXT: IFN$( 2 :]=S$ ( B ) ANDN $ ( 3 ) =S $ ( 4 ) ANDNS ( 4 ) -S £ ( 2 
) ANDNS ( 5 ) =S$ t 6 } THENPRI NT" "N : PRINT" "S$ ( .1 ) 

:PRINT" "N:PRINT" "S$(5] : PRI NTN : PR I NT" 

"S$ ! 7 } : PRINT" »N ELSftNEXT 



Paul Weedoti's solution using the INSTR t unction: 



1 

2 



4 
5 

6 
7 
8 



POKE&HFFD7 , 0 

FOR 1=1000 TO SQR(9999999) 
IS*M1D$-(STR5(I ),2) :J£ = MID$(STH$(I*I ),2} 

IN5TR13,IS,MID$(J$,1,1) )<>3 THEN 9 

INSTR ( 2 , IS,MID$(J$, 3,1) )<>2 THEN 9 

INSTRH,IS,MID?IJ$,5,1>)<>4 THEN 9 

IIISTRU,I5,MIDS< JS,7,1) )<>! THEN 3 



IF 
IF 
IP 
IF 
IF 
I 



F INSTRU, J$,KIDSU$,3,1) ) +1 NSTR 13 , J $ , MI DS ( I $ , 2 , 1 ) ) + 
NSTR( b, JS,MID$(IS,4,1) )+lNSTR(7, J$,MIDSU $,1, 1)>-1& 



9 



THEN PQKE&HFFDB , 0 : PR I NT I: STOP 
NEXT I 
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Late but lively, Ken Smith returns from the London 6809 Show 



THERE are times when you can be really 
pleased to be wrong, After all, wasn't I the 
one who said that the last 6809 Show pro- 
bably would be just lhat. Yet only four 
months later there we were for yet another 
time. The Dragon and its devotees never 
cease to amaze me. 

It is interesting to see the style of the 
show changing. This one seemed to me to 
have a more technical bias than previous 
shows, with probably more bargains than 
ever. 

I closed the last report telling of how I 
wanted a modem, only to find the cupboard 
bare. Well true to form, this time my needs 
were supplied in the shape of a neat little 
Prism, supplied by the National Dragon 
User Group (I must join someday}, com- 
plete with software for only forty pounds, 
Just proves my point, seek and ye shall 
find. 

At the other end of the size scale 
Microdeaf had a huge one, (modem that is) 
ex-GPQ and bigger than the Dragon itself . 
Still at the silly prices they were asking you 
could always use it as a combined modem 
and bench seat. Maybe lhat is what is 
meant by sitting on information. 

Bargains for grabs 

Ba rg a i ns c o me i n all sh ape s and sizes an d 
plenty were up for grabs on John Penn's 
stall. 

One was of particular interest to pro- 
s pe cti ve 0 S-9 use rs. n a me I y th e o p e rati ng 
system itself which John is selfing at cost 
price. 

Anyone who has seen the ads from the 
gentleman in Denmark who has the 
licence to produce QS-9, will know the ter- 
rific prices he charges. Well, John's are a 
fraction of that and his only condition is that 

he would like you to buy you other software 
from him. With Pascal at only seventeen 
pounds, where else would we go? 

Some new faces appeared on the stand 
taken by Brooms oft, A company that seem 
to deal mainly in adventure games, this 
was their first show and I hope to see more 
of them. 

Unfortunately the larger houses and 
dealers seemed to get first bite at the 



cherry and a lot of people were spent out 
before they found Broomsoft, which is a 
pity, as they may never know what they 
missed. (They might if they enter the DU 
June competition. Broomsoft have done us 
some discount vouchers as prizes. — Ed.) 

Keyboard basics 

I would have seen in a similar position had 
it not been for Bob Harris. 

Bob markets the excellent BASIC42 with 
which I have been having a few minor 
problems which Bob thought could be 
down to my keyboard. This prompted me to 
go the the Peaksoft stand and try one of 
their replacement units. For those of you 
who P like myself, thought that the old 
Dragon 32 keyboard was good enough 
then you must try this. 

The improvement in feel and response is 
appreciable a nd it see ms to have c u red m y 
problem. The trouble is it doesn't spell any 
better than theold one, {Too fate! My fast 
conversation with Peaksoft revealed that 
they have sold the last one and can't obtain 
any more stocks. A pity as there is appar- 
ently a demand. ) 

Com pu tape were offering a wide variety 
of software and joysticks all at knockdown 
prices and in fact I can't remember a show 
with so many joysticks on offer. 

Microdeal had a binful of Quickshots, to 
be sold on an ,l as seen" basis for one 
pound each. Some of their software was 
cheaperstill. Myyou ngest son ma nag ed to 
buy eight games for only four pounds. 

Anyone with a little know how could have 
assem bled a d o u b I e d ri ve d i sc system fo r a 
fraction of the normal price. N DUG had the 
drives. Compusense supplied the cases 
and DOS. They also had a lot of the disc 
based software, mainly FLEX orientated of 
course but some Dragon DOS and also 
some hardware, like an Eprom burner and 
their famous Pl us boardthat puts you in the 
128K league, 

As I dodged from stand to stand I was 
surprised by the enthusiasm still offered by 
both the traders and the customers. This 
long after the collapse of Dragon Data you 
don't expect to see many new develop- 
ments but there were. From conversions to 



give you a built in speaker and inverse 
screen at the flick of a switch, to the new 
game Superkid from Quickbeam. 

One big surprise is that there are still 
some Dragoneers who don't subscribe to 
DU. (If you are reading a borrowed copy I 
hope you feel thoroughly ashamed of 
yourself. Dragon User is our strongest link 
and we must preserve it.) 

The delightful Helen was there as pro- 
mised, thrusting subscription forms at 
anyon e who ca me wi th i n sig n i n g d i sta nee . 
Helen, by the way, did not disappear at 
twelve- as threatened which explains the 
team of white mice and the soggy pumpkin 
I noticed on the way out. [The sitiy chaps 
came to the wrong door t Ken. i had to flag 
down a passing banana drawn by a couple 
of cockroaches. — Ed.) 

Revitalised 

I had arrived at 10.00, when the doors 
opened, with a sinking feeling (Why? Were 
they poorly?— Ed r again). I left just after 
1.30, broke but revitalised. Please : oh 
please, let there be another show in 
November. I will need another fix. of enthu- 
siasm . Just to be in the company of people 
who really do believe in the Dragon might 
stop me going to one nf those other, inferior, 
machines* 

When you hear quotes like "after all it is 
still the only home micro capable of 
running the new education standard r 
namely 08-9" from someone who realfy 
believes in what he is saying, it makes 
all the effort worthwhile. See you in 
November. 



Although it looks doubtful that there wilt be 
another show at the Horticultural Halls, we 
have heard from at least two lots of people 
who are thinking of putting on smaller 
shows in the autumn at easily accessible 
venues out of London — avoiding the 
swingeing city prices. The success of the 
Ossett Show in April, shortly after the 6809 
Show, demonstrates that this format can 
work to everyon e , s advantage. We'll publish 
any news as soon as we get iL 
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user frequently gets requests for screen dumps. Here we 

specimens from our collection 




some 



OK, you guys. You asked for it, The 
response to our appeal for screen 
dumps has come in a flood. We can only 



reproduce them in a trickle by com- 
parison, but we re starting here. They 
arenl in any particular order, and they 




aren't 
of yous 
for eventually 




to work, but numbers 
find what you are looking 



2000 

2000 
2000 

2000 
2000 
2000 

2000 
2000 

2000 

2000 



2000 
2000 
20 00 
2002 
2004 
2006 
2009 

200A 
200D 

20QE 
2010 
2012 
2014 

2014 
2014 
2014 

2014 
2016 

2018 

201 A 

201C 

20 IE 

2020 
20 2 3 
2024 
2026 
2028 
202tf 

2028 
2026 
202S 
20 2A 
202C 
20 2E 
20 2 F 

2030 
2032 

2034 

2034 



BCF5 
00 B A 

00B7 



3416 
AEG 4 



27QS 
A6SC 
BDBCF5 
5A 

2QF6 
AF64 

3596 



3444 

1F12 

C808 
63A4 

ASA 4 
3602 
31AB40 
5A 

26F4 

35C4 



Epson FX-85 

Th is is writte n i n ass e m b I y I a ng u age f o r t he Epso n FX-85. Th e 
routine handles what I prefer to call a half-size printout of a 
PMODE4 (3) screen display using a iwo pass technique, not 
unlike the NLQ-mode print 

Qlav Havard Noraberg 



HALF SIZE * 



* GRAPHICS PMODE 344 SCREEN DUMP 

* ROUTINE FOR THE EPSOM 

* PRINTER 



TXLPCH EQ0 $BCF5 
TOP EQU $BA 
BOTTOM EQU *B7 

* < PC )= POINTER TO LENGTH -BYTE 

* 0<NQMBER OF BYTES < 255 



LPINIT PSHS 



L00P1 



END 



LDB 
BEQ 

LDA 

JSR 

DEGB 
BRA 

BTX 
PUIS 



A,B P X 

S4 P S 

,X+ 

END 

,X+ 

TXLPCH 

LG0P1 
$4 , S 

A,B,.X a PC 



* STORES & BYTES IN THE USER 

* STACK AREA (X=BASE 1 Y=Y+&4) 



PUT 



LOOP2 



PSHS 

TFR 

LDB 

COM 

LDA 
FSHU 

LEAY 

DECB 



PULS 



B,U 
X, Y 

,Y 
A 

$40.Y 

L0OF2 
B>U>PC 



* ROLL 8 BITS INTO A- REG FROM 

* 8 BYTES IN THE USER STACK AREA 



68C2 

49 

5A 

26FA 
35C4 



ROLLBY PSHS 

LDB 

L0OP3 LSL 

ROLA 
DECB 



S 



B,U 

,-0 



LOOP 3 
itPiPC 



2034 

2036 
2036 
2038 
203A 



20 3C 
20 3E 

20 3E 

20 3E 
2043 

2048 

204A 
204A 
20 4C 

204E 
204E 

2050 

£052 

2055 
2056 
2056 
2058 
20 5 A 

2Q5C 
20 5D 
205F 
2061 
2063 
20 e 3 

2063 



206:) 
2G6E 



2070 

2074 
2076 

2078 

2078 

2078 
207A 
207C 

207C 
207F 

207F 
2081 
2083 

20&5 
2087 



3477 
9EBA 

1F43 

3278 

8DC2 



091B33170D 
1B2A070001 
CG40 

3404 



$MAIN PSHS A^pCC.X.Y.U 

LDX TOP 

* RESERVE 6 USER STACK BYTES 

TFR S P U 
LEAS -8,S 

L0OP4 BSR LPINIT 

* LINE SPACING - 23/216" 

* PLOTTER GRAPHICS =258 

FCB ' *Qg B $lB.$33.$17 f S0D 
FCB $lB i $2Ap*07,$00, 401 



CR P 
BYTES 



0 



LOOP 5 PSHS 

BSR 

* . 



— 2 



B 

PUT 



C60& 

6 DO 6 

BDBCF5 
5A 

26F8 

3001 
3504 
5A 

C120 
26QC 

8D9D 



3 



z'SR 
JSR 
DECB 



ROLLBY 
TXLPCH 

LOOP6 



LEAX 

PULS 
DECB 

CMPB 
BNE 



3 



i.X 
B 



091B33010D 

1B2A0 70001 
5D 



tt$20 
CONT 
LPINIT 

* LINE SPACING = 1/216", CR P 

* PLOTTER GRAPHICS =256 BYTES 



FCB 
FCB 



CON T 



SOS >$1B, $33, $01 ,$0D 
$lB r S2A, $07, $00 ,$01 



LOOF5 



303 90 1C0 

9CB7 

25C4 



LEAX 
CMPX 
BLO 



SO ICQ, X 

BOTTOM 

LOOP4 



2 



3268 
8D84 

021B32 



CLEAN UP STACK 
LEAS S8 S S 
BSR LPINIT 

SET LINE SPACING - I/G 
FCB $02 P tlB f $32 

INVERT SCREEN DISPLAY 



6360 



LOOP7 



2 5 FA 
35F7 



LDX 
COM 
CMPX 
BLO 

PULS 



TOP 
■ X+ 

BOTTOM 
LOOP? 

ApB.CCX.Y.UpPC 
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OKI-80 Microline 



4E21 

4E23 
4E27 
4E29 

4E2D 

4E2F 
4E32 
4E35 
4E3S 



4E3F 
4E41 
4E44 



4E47 
4E4R 
4E4C 
4E4F 
4E52 
4E54 
4E57 
4E59 



4E5F 



4E64 
4E66 



4E£P 

4E6C 
4EiD 

&E6F 
4^72 



4E7S 
4E7B 



4E7E 
4E7F 
4ES1 
4ES4 
4ES7 
4EBA 
4EBD 
4E8E 
4E90 
4ES3 



9EBG 

sosgieoi 

9CBG 

26FG 

S6BF 

B74EF1 

7F4EF0 

L08E4EF3 

EDOfi 

LOBC6EF3 

26FB 

170077 
39 

BD47 
7A4EF1 
ED42 
7C4EF1 

7C4EF0 
ED3fl 

7ft4EFi 

ED35 

7C4EF0 

7C4EF1 

SD2D 

7A4EF 1 

SD2S 
B64EF2 

46 

46 

G7fl0 

7A4EF0 

7A4EFO 

7A4EF t 

B64EFL 

4C 

2701 

33 

S6BF 

B74EF1 

7C4EF0 

7C4EF0 

7C4EF0 

38 

G620 

F64EF1 

3D 



This was very compli cate d to ma ke , becau se y o u h a ve lo t u rn 
I he screen to have it fit the paper. Secondly, the screen bytes 
and the printer bytes are configured differently. 

Jakob Hoffmann 



INVERT 



LDK 
LEAX 

COM 

CMPX 



DUMP 



MAIN 



GLR 
LDY 
B5R 
CMPY 



GET 



LBSR 

RTS 

BSR 



BSR 

IMC 
INC 
bSR 
DEC 
BSR 
INC 
INC 
BSR 



LDA 
RORA 
□ RCC 
RORR 



6145, X 



4E94 
4E36 
4E9B 



IIWERS 

#131 

YPDS 

XPOS 

#SKAERH 



4ESC 
4E9D 
E 



#BKflERM+S192 

MAIM 

PRINT 



4EG2 
4EAS- 
4E 



4EftB 



1F01 

F64EF0 

54 

54 - 

54 

3fl 

BF4EEE 

B64EF2 

F64EF0 

C407 

5C 

F74EF2 



PPDINT 
YPDS 
RFC I NT 

YPOS 
XPOS 
P POINT 
YPOS 
PPOINT 
XPOS 
YPOS 
u PO I NT 



;Xi y 

¥Xi Y-l 
; X+ 1 t Y 



? x+i, y-i 



4EB0 
4EB1 
4 EE 4 
a&Bt. 
4EB7 
4EBG 
4EBB 
4EBD 
4EC0 
4EC2 
4EC5 



S X4-2i Y-l 



PPOTNT 
BUFF 

#1 





STfl 


i Y+ 




DEC 


XPOS 




DEC 


XPOS 


LDDP 


DEC 


YPOS 




LDA 


YPDS 




I NCR 






BEG 


MERE 




RTS 




MERE 


LDA 


#191 




STfi 


YPDS 




INC 


XPOS 




INC 


XPOS 




INC 


XPOS 


PPOINT 


RTS 
LDA 


#32 




LDB 


YPDS 




MUL 





4ECG 

4ECC 
F 

4EDi 
4ED4 
4ED6 
4 EDS 
4EDB 

4EDD 

4EE0 

4EE3 

4EE5 

4 EES 

4EEB 

4EED 

4EEE 

4EF0 

4EF1 

4EF2 

4EF3 

6EF3 



59 

7A4EFJ: 
,^6Fft 

46 

B74EF2 
33 

S61B 

BDBOOF 

3642 

FfDQOOF 

361D 

BDSOOF 

B&IB 
BDSOOF 



3 



r-i 



0 



BD 
3660 
37 9B 

7F014S 
360 D 
BDSOOF 



G680 
&DSOOF 



26F6 

33 

good 

00 
uu 

00 



Tandy CGP-115 plotter 





ADDD 

1 1 m*T mmm 


■ mmi m 1 




TFR 


0* X 




LDB 


XPOB 




LSRB 






LSRB 






LSRB 






f\BX 

■ I mi m ■ 






STX 


PDDR 




LDft 


BUFF 


RUL 


LDB 


XPDS 






#7 




iNce 






STB 
LDB 


&UFF 
* X 


AG O I N 


ROLB 






DEC 


BUFF 




BNE 












STPi 


BUFF 




RTS 




PRIMT 


LDA 


#27 




JGR 


*soof 




LDfl 


#66 




JSR 


*SO0F 




LDA 






JSR 
LDP 


5sriOF 

#27 




JSR 


*f » »i 




LDA 


#56 




JSR 


*800F 




LDA 


#96 




ST6 


*9B 




CLR 


*14S 




LDfl 


#13 




JSR 


^SOOF 




LDX 


ttBKflERM 


□WLINE 


LDPj 


■p X+ 




JSR 


*SOOF 




CMPX 


#SKftERM+8192 




BNE 


DM. 1 NE 




RTS 




flDDR 


FDB 


0 


XPOS 


FCB 


0 


YPOS 


FCB 




BUFF 


FCB 


o 1 


SKPiERM 


RM& 


81 92 



This one is speaking for itself... 



John Oliver 





-il LAST HERE IS ft SllktLN DUMP MkUGKBfl 
ALL DRAGON OWNERS UHO POSSESS A 

Y CGP-115 4 PEN PRINTER PLOTTER. 
THIS IS ALSO A LATE RESPONSE IN REPLY 
TO REQUESTS IN THE comjnun i cot I on PAGE 
OF D.USER EDITIONS JUNE & OCTOBER JS86, 
BY C- CAREY OF EASTBOURNE GROUE, ESSEX AND 

O.S PHILIPS OF BRQriDSTONE ROAD SOUTH, 
CHESHIRE, 




THE PROGRAfl IS SET UP FOR RHODE 4 WITH 
EITHER SCREEN ALSO ASSUMING THE 1ST 4 
ICS PAGES ARE USED. 
HERE ARE A FEW PROGRAM NOTES. 
LINE I0J-SETS PRINTER TO GRAPHIC nODE 
WITH THE ORIGIN SET AT 488,0 
LINE 20 : -DISPLAYS SCREEN. 
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LINES 30-58 :-INUERT THE SCREEN ONLY IF 

THERE IS flORE BLACK THAN WHITE SO 

SAUING ON TOUR BLACK INK, 

LINE 60:-LOOP EQUAL TO THE NUffBEK OF 

OERTICAL DOTS ON SCREEN. THIS HAY BE 

ALTERED FOR OTHER RESOLUTIONS. 

LINE 70: -AS 60 BUT FOR THE NUMBER OF 

HORI20NTAL DOTS, 

UNEeei-PUTS COLOUR OF DOT LOOKED AT BY 
THE TUO LOOPS INTO UARIABLE CP J . 
L INE30 : -PRINTS OUT A 2 DOT LENGTH LINE 
FOR EACH BLACK DOT ON THE SCREEN 
NOTE THE COLOUR CODE HAY BE ALTERED FOR 
OTHER HODES, USUALLY BEST TO 
THE MAIN COLOUR USED, AND DO 
TO CHANGE YOUR PRINTERS PEN 

100: -END OF HORIZONTAL 



LINE 
LINE 




i P 



LINE 

LINE 



CHRNGE TO 
NOT FORGET 
COLOURS 
DOT LOOP. 
110:-flOUES PAPER BACK R£ADY F 
K£XT LINE TO BE PRINTED ALSO MOUES PEN. 

120:-END OF UERTICAL DOT LOOP. ■ 
l"30:-FLLOb FIN J SHED UUflP TO YOU. 
Jf you want * darker screerniump tt\$n 
cnttr the foLloglng directly without a 
I i ne number or remark. 

For this lo uork correctly YOU SHOULD 
NOT ha^e to moue the paper by hand^teed, 
vOU CAN REPEAT THIS AS HANY T I PIES AS YOU 

HISII TO OBTAIN YOUR REQUIRED DUMP. 
1 REI1 :D=0:?#-2, "H" :?tt-2, "H-i ,0" :?tt-2, " I " 
:GOTO 60 



FURTHER NOTE THAT IN PPIODES 18.3 LINES 
30-50 MAY BE EITHER RE PIQUED OR TURNED 
INTO REPtARKS. 

[N PflODE B LINES 308,50 SHOULD BE : - 
FOR K=-1536 TO 30? 1 : ETC. LINE 40 BECOMES 
IF Q> =195840 THEN 60 

I 





2 CHANGE 308,50 TO BECOME 
K=1536 TO 4607 iETC. LINE 40 BECOMES 
IF Q> =33 1680 THEN 60 

10 PRINT*-2,CHR*C1BJ :PRINT«-2, "11480,0" IP 
RINTW-2, "I" 

20 PMODE4 , 1 : SCREEN! , 1 

30 FOR K=1536 TO 76B0:Q=QtPEEKCKJ iNEXT K 
40 IF Q>=?e3360 THEN 60 

50 FOR K=1536 TO ?6S0:POKE K, 255-PEEKf K J 
'NEXT K 

GO FOR Y=0 TO 191 

X=0 TO 255 
80 P=PPOINTtX, YJ 

90 IF P=0 THEN PRlNTtf-2, " J0, -2" ELSE PRI 
NTtt-2, "R0, -2" 

100 NEXT X 





130 D*0-2:PRINT*-2, "IV' + Sl R* CD J +■ 
120 NEXT Y 

130 PRlNT+f -2, "ri0, -600" :£ND 



II 



,0" 






Cnoosefrom: 

BORIS THE BOLD, RUBYROBBA, STAR SWOOP. BOMBS AWAY BASIL 
MC DOUGALS LAST STAN D. THE BElLS, MUTANT MR. DESPERADO DAN 
STAR DEFENCE PERILOUS PIT. BROCKS KINGDOM, MORBID MANSION ' 








during the 




twos/ 






save £3 - oriy £2.99 incl. p. + K M 

DRAGON JOYSTICK Bi ALTAI (with 2 fire buttons} 

only £439 ind. p +p. 

SEND NOW FOR A FREE CATALOGUE 
See us in Rochdale on Saturday 12th September 



anoat?hePCV.'ShcwatC'l 




aae; 23rd:241h SepBTber. Pjblic: 25tW26th£7lh September) 



R.&A 




Preston 



KINGS HALL COURT ST BRIDES MAJOR. MID, GLAMORGAN 



Telephone: C656 BKBffi 



ACCESS 



VISA 



THIS COUPON ALLOW! 



30p off 

a £1 .99 game 



or 50p off 

a h igher price game 




F PRESENTED AT THE DRAGON SHOW 

IN 

ON SATURDAY, 12TH SEPTEMBER 

at this Show) 
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If you've got a technical question write to Brian Cadge. 
Please do not send a SAE as Brian cannot guarantee to 

answer individual inquiries. 



A sound 
start 

I AM involved in a sports dub and we 
want to use my Dragon to time races 
etc, I have written a Basic prog rani in 
do this but I would also like the com- 
puter to start the races with a tone. 
Can you explain if and how I can send 
sound to the cassette port and how 
to connect an amplifier to it. Also will 
I be able to send separate sounds to 
the TV and PA systems? 

Dick Jabber 
Reading 

THE output fro m t h e cassette portis 
suitable for directly driving a stan- 
dard amp (not a phono input!). Look- 
ing at the Dragon's cassette socket 
end on and numbering the pins anti- 
clockwise 1 to 5, you need to con- 
nect pin 2 to the input line of your 
amp and pin 3 to the ground line. 

All sound produced by the SOUND 
and PLAY commands is auto- 
matically sent to this port so you 
need do no more, II is possible to 
select between TV/Cassette Pari and 
Cassette Port only, however, this 
cannot be done From Basic as the 
SOUND/ PLAY commands always 
enable TV sound. 



Dragon Answers 





comes with an excellent editor/ 
assembler and debugger (but no 

s scmewhal more 

expensive at £174 

It must be up to the individual to 
weigh up the relative aspects of 
these two very different operating 
systems, hut Flex is cheaper and 
does have a larger software base. 




Colour 
runs out 



Cure for 
Anadex 

I RECENTLY acquired an An ad 
printer and I was wondering if it is 
possible to connect it to my Dragon 
32.lt is a Model DP-8000 dotrn at rix . 
Th ere are two con nections at th e re ar 
of the printer and 3 sets of dip 
switches inside. There are also four 
switches and a light on the front; 
on/off line, linefeed, TO F etc. I have no 
knowledge whatsoever of printers. 






Flex or 
OS-9? 

I AM a student presently studying a 
computer course. Having owned a 
Dragon for four years and using it 
mainly for assemble^ language pro- 
gramming I find the machine ex- 
cellent for my needs but I would like 
to obtain a 'commercial' operating 
system for it. The alternatives wou d 
apper to be Flex or OS-9. Flex, 
although preferable, is the more 
expensive. I therefore would like to 
obtain OS-9 but this seems 
unobtainable? 

C. P. Goodwin 
5 North Devon Rd. 
Fishponds 



Dragon 32 loses its colour 
transmission after 5 to 10 minutes 
running time. It functions correctly in 
other respects, can you please advise 

me? 

John Deny, Leicester 



TH E most co m mon cause of this p ra - 

b I e m i s t hat, along w i th ma ny other 

home computers, the Dragon tends 

to 'wan d e r" si ightly oft c ha n n el d jr- 

ing operation. Some TVs are more 

sensitive to this than others (some 

of the more modern ones will keep 

re-tuning themselves to the 

strongest signal). 
I! you find thai re-tuni n g does not 

restore the colour then the chances 
are that the Dragon itself specifical- 
ly the modulator, is at fault This is 
re lati vely si m pi e to re pi ace you rselt 
{with a soldering iron and a little 
skill) or alternatively your local TV 
engineer will probably do it for you . 



75 Sunnybank Rd. 
Pontypoot ( Gwent 

THE two sockets at the rear ol the 
printer are for serial and parallel in- 
terf ac es. The I o wer socket (a 36 pi n 
female type) is a standard Cen- 
tronics interface as used on the 
Dragon. Any standard Dragon 
printer lead should work with this 




In the first bank of dip switches. 
1-5 contra) the form length in in- 
crements of 0.5 inch; 6 controls 
regular/condensed font; 7 controls 
the print time-out function: 8 con 
trols the selection at T or T in the 
character set. 

In the second bank of dip swit- 
ches, 1-2 control the skip over per- 
foration length in increments of 0.5 
inch; 4 sets G or & lines per inch; 7 
controls wrap-ro u n d rtru ncate mode 
and should be OFF lor the Dragon; 
8 controls t he auto I inef eed setti n g 



and should be ON for the Dragon. 

The third bank of & dip switch es 
is concerned with setting the baud 
rate of the serial port and should all 
b e off' when using the para I lei po rl. 




Stood 
him up 

I AM writing a basic program to run 
from disc. I want the program to 
display the date at which it was last 
run, but I cannot see any way of keep- 
ing the date (mfJTS) with the program 
as wh&n I save it to disc and then 
reload, the variables appear to be 






ONE solution to I his would be to save 
the date in a disc file and reload it 
at the start of the program. 

Another, more interesting solu- 
tion Js to store the d ate permanently 
in your program which can then be 
saved to disc before exiting, Assum- 
ing the variable DTS holds the date 
then the following code could be 



Ball used: 



100 X$="THIS PROGRAM WAS 
LAST RUN ON 00/00/00" 
110 PRINT X$ 

120 INPUT "ENTER TODAY S 
DATE DD/rr1M/YY u ;DTS 
130 X=VARPTR(XS) 
140 A=PEEK(X+2)*256+ 
PEEK(X+3) 

150 FOR l=1TOB:POKE A+l+28, 
ASC(MID$(DT$J,1)):NEXTI 
160 SAVE FROGNAME" 
170 REM REST OF PROGRAM.... 

This works by poking the new date 
directly into the string X$ (whose ad- 
dress is found by using the Varptr 
function) . Wh e n a stri ng is declared 
as a constant (as In line 100), basic 
does not waste string space on it hut 
sets its puinterto point directly in the 
program text, hence it is per- 
manently changed and saved along 
with the rest of the program in line 
160. 




THERE has been much (heated) 
debate over the years in Dragon User 
about the relative merits ol OS 9 and 
Flex. Both are now available once 
again for the Dragon 64: Flex from 
Compusense is, in fart, the cheaper 
of the two at £99.99 which includes 
an excellent editor/assembler 
package plus a disc version of Basic. 
OS 9 from H.C. Anderson also 
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Matthew Lodge is here to ted you about a double-dealing chip 



THE Synchronous Address Multiplexer 
(chip number 6883 or 74LS783}, to give it its 
full title, has never been fully explained in 
one article, However, it is one of the most 
important chips in the Dragon, and unfor- 
tu nale I y o n e of t h e m ost pro ne to b rea kage. 
This breakage can be accelerated by bad 
software practice, so beware. The in- 
famous speed-up poke WILL DAMAGE 
YOUR COMPUTER. The local Dragon 
know-all will tell you that it doesn't matter, 
and some software even uses it lo ach ieve 
faster running speeds but IT WILL KILL 
YOUR DRAGON. The Dragon was not 
designed to run at the faster speed and it 
will cost y o u d early in ii me an d m o n ey if y o u 
use the poke (Compuserve supply the 

6 883/74 LS783 for £25 a time). 

Basically SAM provides most of the 
address decoding for the 6809 chip, or in 
very simple terms, what goes where. SAM 
starts at $FFCO and finishes at $FFDR 
Some of the facilities are useful on their 
own, others are used in conjunction with 
the two PIA chips on The Dragon, First I'll 
explain how to access SAM. 

Each register in SAM has two locations 
allocated to it. One even , and one odd. The 
odd location turns on the register, the even 
one turns it off. This dual location system 
also has the side effect that you can't tell 
how SAM is set up by peeking to it, 

because all you get back is $7E (126). 

For example, let's take the memory map 
toggle, locations $FFDF and SFFDE. The 
location $FFDE is even (if you can't see 
why, convert it to decimal), $FFDF is odd. 
When you type 

POKE &HFFDR0 




u are setting the map type to one. The 
number you poke doesn't matter at all. 
When you type 

POKE &HFFDE,0 

you reset it to zero. But don't do it yet! Too 
late, you did it? That's OK for all with a 
Dragon 32, but if you have a Dragon 64 
then you've got a crash. This is because on 
the Dragon 64, map type one is RAM 
mode, that's 64K of continuous RAM, and 
map type zero is the normal 32 K mode. 
And because you were running Basic, all 
the interrupts were pointing to areas in the 
D ragon RO M . Wh e n you c ha nged t he map 
type, the ROM disappeared, and the inter- 
rupts had nowhere to go. Also, you were 
running Basic, which is a program just like 
any other, and the program itself also 
disappeared, so wallop!, you haveacrash. 
On the Dragon 32, map type one does not 
apply, so nothing happened. (Unless you 
have a ve ry rare an d earl y Drago n 32 wh ic h 
has 64K of RAM fitted, but only 32K used). 

This reg iste r is u s ef u I , as "64 own e rs c a n 
utilise it from assembly language pro- 
grams. In order to prevent a crash, all you 
have to do is turn off the interrupts (ORCC 



£$50), then change modes. If you want to 
change back, all you have to do is change 
modes back, then re-enable them 
(A N DCC £$AF) .Thus.it is possi b I e to copy 
32K Basic and DOS into RAM where they 
can be hacked, sorry, altered (a prog ram to 
do this is listed as program one). This is the 
method that Harris's Basic 42 uses to hook 
in allot its goodies. 

The '64 owners among you may now be 
wondering "but what happens when I type 
EXEC 48000 to go into 64K mode?". What 
h appen s i s t hat a s m a 1 1 mac h i n e cod e pro- 
gram is copied into the cassette buffer, in 
low RAM. This turns off the interrupts, then 
switches in the second ROM {which 
appears at $8000 to $BFFF) and copies 
some code from it. Then it switches in 
map one, which is 64K RAM mode. This 
still leaves the cassette buffer and all low 
RAM (The first 32 K) intact. It stores this 
code in its new position (ie +$4000 from 
where it got it), then repeats the operation 
until all of the Basic is transferred, then it 
'boots' the new Basic (that is not a machine 
code kick, but a term meaning rojghiythe 
same as RUN). 

Look at figure one. This provides a 
sketc h of wh at ea ch togg I e m e a ns to S A M . 
I'll describe what each means, from SFFC0 
up. 

$FFC0 to SFFC5 is the video graphics 
mode. This ss used in conjunction with PIA, 
csnd f am not going to explain here how to 
access all the modes, as it takes a long 
ti me. If you rea I ly want to k now th e n co ntact 
Motorola for a SAM/68477 applications 
guide (free) which gives all the necessary 
d i agr ams , o r get a c o py of R oy Coate s 's a r- 
ticle on the Graphic modes in November 
85 Dragon User. Having said that, I'm go- 
ing to try to explain it in simple terms here. 

These locations control the VDG 
memory modes, or if you like, bytes per 
page. 

MODE BINARY REAL TERMS 

0 000 512 

1 001 1024 



Program 1: 



, I £ 



nprr 



III ^11- 



i pnp 



S T A 



I Hi 




■ 4 



— k, .■ 



J •. «,v -. ■ 

$FF D£ 
*FFDF 



CMPX 
tit n 

■■■(!■ Vrs" 
| r 1 ^1 a.,- Sr-P 

RTS 



■In -I*" * I 



LOOP 

£*AF 



2 010 204B 

3 011 1536 
4100 3072 

5 101 3072 

6 110 6144 

7111 7680 Watch out Pica* 

Don't mix pages in this sense with pages 
in the Dragon Basic sense A page here 
means the number of bytes used by the 
screen. A page in Dragon Basic means 
1 536 bytes. So, 6or 6144 bytes is correct for 
P MODEs 3 and 4. Using the binary column 
from the table above (working from left to 
right or down in memory), and the SAM 
diagram, poke the odd location to set one 
bit, and poke the even location to clear a 
bit. So if you wanted to sol 1536 bytes per 
page, you would: 

POKE &HFFC4,0:POKE &HFFC3.0: 
POKE &HFFC1A 

— which are the actual registers. 0,1,1 are 

the binary equivalents. 

However, don't think that poking to 

SFFC0. $FFC3 and $FFC5 will get you 

pmode4. You haven't set the PIA up, or the 

display offset .The latter j List h a p p e ns to be 
next in memory. 

The loc at i o ns f rom S F FC 6 to S F FS3 con - 
trol the start of the VDG mode you are cur- 
rently in, that is the address at the top left 
hand corner of the screen. While in Basic 
it's 1024. but it can be anything from 0 to 
SFEOO. You noticethatthereareonly seven 
bits, so only addresses in multiples of S200 
(512) apply- There goes your fast hardware 
scroll (a technique often used on the BBC, 
which uses the 6847's sister chip, the 
68450). And before you rush off and write 
an animation program which flips through 
frames by moving the display offset, note 
that some Dragons have a hardware error, 
so that pages over $4000 cannot be 
assigned. AH you get if you try is lovely 
green swaying ga roage. The machine and 
all the RAM is OK, it's just that your display 
is... different, I've just killed two potentially 
good ideas stone dead, but moving the 



INTERRUPTS OFF 

START OF BASIC i 

32« mode -j 

LOAD WE XT WORD FROM ROM 
64K MODE 

STORE IN SAME PLACE < 

BUT IN RAM 

END OF DOS ? 

NOPE., - SO DO NEXT WORD 

I-" T l\| v <:*LJ { MmTi: 

■ J. ■ %l •■■ i — J i i -i ■ T %mf I In. IT 

&4K RAM MODE) 



EXITS IN 
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display does have its uses. If you have a 
machine code graphics program which 
needs all the space it can get, try locating 
the screen at 1024, or even put it at 512. If it 
doesn't use any ROM calls or only a few 
simple ones, then why not locate it at 0. If 

you are using text mode, you can fit quite a 
few separate text screens in $4000 bytes. 

Now we come to locations SFFD4 and 
SFFD5, which is labelled page on the 

diag ram, but it doesn't do anything when in 
64 K mode. I must confess I don't know 
anything of value about this location. All it 
has on my proto diagram is "MPU ad- 
d resses from $000 0 to $7F FF apply to pag e 
£1 ifP1 = i M L 

Next we come to the legendary MPU 
rate- This is the thing all the bad software 
writers twiddle when they want to tur- 
bocharge their Dragons. The Dragon 
operates in slow mode normally, but three 
other modes exist. The first is just fast, the 
second is superfast and the third is tur- 
boc harg ed . You wH I not i ce th at you I ose t h e 
display if you try superfast or turbo. This is 
because the machine is running soquickly 
it doesn't give the poor VDG any processor 
time to do its work, so it is left bewildered, 
with the swaying green garbage. Under- 



neath ad that, the machine is still working 
although the keyboard won't be, as it was 
designed to work at a slower speed. 

Next is $FFDA to $FFDD which is 
memory size. There are four possible 
values (2 bits), all of which are marked in 
the diagram. The Dragon uses the third 
mode all the time- If you try telling the com- 
puter it has 64K of static RAM, interesting 
things result, with a crash which kills the 
systems. 

One last comment which is that all 
registers in SAM are cleared when the 
machine is reset. That concludes SAM, 
and I hope this has provided a helping 
hand to any programmer bewildered by the 
SAM chip. I should like to express my 
thanks to Compusense, without whom* 
etc. , etc. 




Interrupts: Every so often the 6809 is inter- 
rupted. That is, it finishes executing the 
current instruction, then services a small 
machine code routine. When it reaches the 
RTI instruction, it returns to whatever it was 
doing before. On the Dragon interrupts 
happen every 50th of a second, and arc 
cau se d by the V DG ch i p w h ich i s s»g nal I i ng 



that it is starting to scan the TV screen . The 
Basic ROM uses this to update the soft- 
ware clock or timer so it can keep track of 
real time (useful when PLAYING notes, to 
see when to stop), 
MPU: Micro Processing Unit 
SAM: Synchronous Address Multiplexer 
Static RAM: Normal RAM (as used on the 
Dragon) needs what is called a refresh 
signal every few milliseconds. SAM pro- 
vides this, and it serves to refresh the con- 
tents of the RAM or make it remember what 
it holds. Static RAM does not need a 
refresh signal. The price you pay is in cost 
and size, as static RAM chips cost more 
and there is less memory to a chip (the ex- 
tra circuitry on the square of silicon takes 
up quite alot of room), 
VDG: Video Generator 
6847: VDG used in the Dragon. Designed 
to be used in conjunction with SAM : which 
explains why some circuitry it needs is on 

SAM, 

6845 CRT controller (different to a VDG) 
used in the BBC micro and the IBM PC 




6883: SAM s chip number 

74LS783: SAM's more common chip 

number (one of a series of 74LSxxx chips), 



Figure 1 - SAM proto diagram 



C=CLEAR BIT 
S = SET BIT 



All bits cleared when SAM reset 
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FFCl 
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F6 



Pi 



R0 



Rl 



M0 



Ml 



TY 
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DISPLAY 
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(BINARY) 

Address 
of uppper 
1 e f t— most 
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Philip Seed reviews Quickbeam's popular wordprocessor 



DESCRIBED in its adverts as "The Dragon 
t Word Processor" Electronic Author cer- 
tainly has a lot to commend it. It combines 
ease of us© with some very powerful 
features. However as with all good things 
there is a drawback. The manual is not as 

comprehensive as it could be, it lacks 

features which could easily be included, 

j and unfortunately it has some bugs. The 

objective of this article is to provide users 
with more information on using this 

word processor. If it also persuades 
Wayne Smithson to take it back to the 
: drawing board and bring out an enhanced 
version then that can only be a good 
thing. Most of my work has been with the 
disc version of EA and while some of this 
article will re I ate specif i cal I y to d iscs, ot he r 
parts will be applicable to tape and disc 
versions. 

ENTER As stated, pressing ENTER is 
not actually necessary and slows EA 
down. However, it can be very useful for 
suchthings as adding underlines and box- 
ing titles (see figure 1). To ensure your 
lines are the same length, press ENTER so 
that you type the lines directly below one 
another. When everything is as you want it 
j cancel the ENTERS, 

TAB This command is again skipped 



Figures 1, 2 &3: 

FI6 in 



over very lightly in the manual, what it in 
fact does is tab on n spaces (in literal mode 
only), to use it to reach a specific column 
(on a new line). Concurrent use of the ET 
command is a far better way of making an 
address Mock than the method demon- 
strated in the manual. 

MARGINSandLINELENGTH Although 
you must sick to your original top and 
bottom space, you are at liberty to alter 
other settings, namely margin and line 
length. Uses of this would be when 
changing print font to a font with more 
or less characters per inch, thereby 
retaining the same size margins (see 
figure 2). and for indenting a body of 
text (see figure 3). A point to make Clear is 
when using double width printing although 
the margin istaken care of line length is not 
so care needs to be taken to avoid word- 
wrap and untidy results. The best method 
is to ensure you do not exceed half the nor- 
mal line length and issue a new line com- 
mand immediately after cancelling double 
width. 

PAGE NUMBERING It might have been 
better if oft page numbers had been made 
the default, it is important to remember to 
p ut a n £0 P at th e top of any text if you d o not 
want page numbers. Page numbers do not 



reset if you load new text so if you start work 
on a second document using page num- 
bers you may be surprised to find the 
numbers do not start at one, the answer is 
to assume nothing and always use £PN1. 
To avoid unwittingly missing out any para- 
meter settings I have saved several of my 
most commonly used settings and load 
them adding the text to them either from 
the keyboard or by appending a file. The 
most common reasons for not getting the 
desired printout are, forgetting to put a 
cancelling command or a £ at the end of a 
centered line, and failing to leave gaps 
after format commands. These are the 
things to check for when checking your 
text 

LOADING FILES An undocumented 
property of the cassette f ile loading com- 
mand is it will load virtually any cassette file 
not just those written by EA, all files saved 
by basic file writing programs can be load- 
ed eg basic wordprocessors and data- 
bases, and some machine code files for 
example those written by DRS. The 
benefits of this could be enormous, users 
upgrading from a basic wordprocessor 
can ret ai n there files and transfer them to 
disc, database information can be loaded, 
edited and saved in a text file format, 
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THIS TEXT IS IN NORMAL MODE AND IS AT 10 CM' Aft A CTERb PER INCH 
WITH A MARGIN OF TEN CHARCTERS LEFT AND WRITE* 

VIE ARE NOW IN CONDENSED rIOBE. WITH 17 CHARACTERS PER INCH BUT AS YOU ACN SEE THE HaRGINS SEHaIN THE 
SAME AS I ALTERED THE FGfW.7 COMMANDS TO ACCOUNT FOP THE MORE COMPACT PRINTING- 

AND NOW WE RETURN TO NORMAL MODE, IT IS VERY IMPORTANT TO DO 
THIS IF YOU DO NOT WANT YOUR TEXT TO BE MISALIGNED WHEN 
USING DIFFERENT FONTS - 



FIG 3 



THE NEXT DEMONDRATIOIM IS OF INDENTED TEXT, A GOOD EXAMPLE i 
THIS WOULD BE TO INCORPORATE A QUOTE IN YOUR BODY OF TEXTS 






WORD PROCESSORS SHOULD INCOROPRATE 
EASE OF USE WITH FLEXIBILITY AMD FULL 
CONTROL OVER EVENTUAL TEXT LAYOUT ON 






RETURN TO THE MAIN EODY OF THE TEXT AGAIN, THIS 
VERY USEFUL FOR MAKING PARTS OF THE. TEXT STAND OUT. 
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LITERAL PRINTING The problem with 
justified text is it does not allow you to line 
up items of text. The answer lo this is to 
switch off justification for text where th is is 
necessary, the manual does not make it 
clear you can do this. For example to pro- 
duce a list of items as in figure 4 use ELI 
type the items, remembering you will have 
to take care to prevent word wrap you rself 
so do not exceed the line length, and add a 
£ B at t he e n d of each I i ne. Rem e m be r also 
my tip for using ENTER to line things up. 
On completion use £FJ to return to justified 
mode. ELI does not affect any of the para- 
meters you have set, so margins, page 
lenght etc. will remain correct. 

BUGS Many of these are quite serious 
and not what one would expect from a pro- 
gram costing £ 20. 

REPLACE FILE For some reason the 
replace file does not leave a backup file, 
this is not a problem in itself but for some 
r easo n t h e replace f i I e o pt i on is som et i m e& 
corrupt, I say sometimes as it often works 
correctly, but on many occasions it reports 
"FILE EXISTS" then gives DOS ERROR 
1 58 then reverts back to the text file screen, 
but while doing so kills the file on disc. 
There is no indication to the user that this 
has been done except a slight whirr of the 
drive head. Anyone not paying 100 % at- 
tention could easlily be fooled into thinking 
the file had been written to disc, NEW the 
file, and then save a subsequent file to the 
disc, losi ng t he n e w vers ion and the old ve le- 
sion, which could well represent many 
hours work. 

WRITE PROTECT If you try to write you r 
file to a protected disc, an easy mistake 
especial ly if you have taken a base file from 
a protected disc, the error trapping reports 
a problem but then exits EA losing every- 
thing for you. There is in fact a way out of 
this (and other crashes or if you press 
reset). EXEC 10259 renters program : then 
press BREAK and use the old command to 
recover your text, I would then suggest 
saving the text immediately and reloading 
EA as it may well have corrupted. This may 
not work for all crashes and should not 
even -be necessary — a little bit of error 
trapping would have seen to that. 

FILENAME C EA will allow you to save 
filenames beginning with C but then 
refuses to reload them as it th inks you want 
to load a cassette file. The answer is to exit 
EA rename the file, a better answer would 
be for EA not to allow filenames beginning 
C 

PROGRAM DEFICIENCIES EA lacks in 
the following ways: It does not allow disc 
users to save files to cassette, uses for this 
would be backup, and sending to other 
users with the tape version. Directory 
scrolls off the top of the screen without giv- 
ing the user a chance to see the top files, 
and with no pause facility. Disc output is 
restricted to single drive use which is ex- 
tremely limiting for users wrth a dual drive 
as file manipulation can take a un- 
necessary amount of time in disk swapp- 
ing while drive two remains idol. Lack of 
space cannot be used as an excuse as a 
separate disc control routine could easily 
be hooked in by the main program. No 
option for exiting to Basic is provided, 



# FIG 4, TO PRODUCE A NEATLY ALIGNED LIST OF 
WE NEED TO ENTER LITERAL MODE =- 



I T E MS 



1. JETSET WILLY 



D RACER 
3- WORLDS OF FLIGHT 



PLATi-0,,. F , 
GRAND PRIX, 
FLIGHT SIMULA 



OR 



FIVE DRAGONS 
FIVE DRAGONS 
FOUR DAMONS 



NOW 



WHAT HAPPENS IN JUSTIFY MODO- 



i , 

t3 



JETSET WILLY 
SPEED RACER « 
WORLDS OF FLI 



PLATFORM i FIVE DRAGONS 
GRAND PRIX, FIVE DRAGONS 

- FLIGHT SIMULATOR, FOUR PARGGJMB 



FIG 4 

crest*? 



Literal Printout of the? file ut^e?ri 



to 



eMSHTipIeSi 



1 1 
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CHARCTERS LEFT AND WRITE. #B#C+#LM 1 7>t*LL99 WE ARE NO 
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A3 YOU ACN SEE THE MARGINS REMAIN THE SAME AS I AL 
TERED THE FORMAT COMMANDS TO ACCOUNT FOR THE MORE C 
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O NORMAL MODE, IT IS VERY IMPORTANT TO DO THIS IF Y 
OU DO NOT WANT YOUR TEXT TO BE MISALIGNED WHEN US IN 
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M IS OF INDENTED TEXT, A GOOD EXAMPLE OF THIS WOUL 
D BE TO INCORPORATE A QUOTE IN YOUR BODY OF TEXTS~# 
B 1 #>. . M2 18 #L L 40 GOOD WO RD P RO CfcS&: > Kti SH-: >ULD i NCO Ro f- R A r 
E EASE OF USE WITH FLEXIBILITY AND FULL CONTROL OVE 
R EVENTUAL TEXT LAYOUT ON PAPER ' *tBl#LMl(3#LL60 NOW W 
E RETURN TO THE MAIN BODY OF THE TEXT AGAIN, THIS C 
AN BE VERY USEFUL FOR MAKING PARTS OF THE TEXT STAN 
D 0U'F.#B2# FIG 4. TO PRODUCE A NEATLY ALIGNED LIST O 
F ITEMS WE NEED TO ENTER LITERAL MODE :-*LI#fil 1. J 
ETSET WILLY - PLATFORM, F I VE DRAGONS *B 

2. SPEED RACER - GRAND PRIX, FIVE DRAGO 

NS #B 3. WORLDS OF PLIGHT - FLIGHT SIMULATOR, FOUR 
DAKGONBttBlUFJ NOW SEE WHAT HAPPENS IN JUSTIFY MODE - 
-#B1 I, JETSET WILLY PLATFORM, FIVE D 

RAGONS #B 2. SPEED RACER - GRAND PRIX, F 

IVE DRAGONS #B 3. WORLDS OF FLIGHT - FLIGHT SIMUIAT 
OR, FOUR D ARGONS 



this could be very useful for such things 
as renaming files or loading other util- 
ities in conjunction with EA (eg address 
book) without having to switch off the 
Draoon. 



Not really a fault but an idea for a future 
product is a spell check routine to accom- 
pany EA, again on disc this could be a 
separate p rog rain w h i ch wo u I d I oad theEA 



text file check the spelling and formating 

erro rs, a I lo wi ng i t to b e I o aded backintoEA 
for printing. 

So how about it Wayne, why not correct 
thebugs, andtake meupon my suggestion 
for your next product, 
Program: Electronic Author 
Supplier: Quickbeam 
Price: £14.95 (Cassette) £19.90 (disc) 
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to Dragon User readers 




have stocks 



Dragon User and Abbott Computer 

of three well known Dragon books which are now no longer 
available from the original publishers. This means that we 



can offer them to readers at much 
stocks last. 




prices while 



LO.-y> Mil* GO 

with Ymm 




4f Load and Go with your Dragon by John 
Phipps and Trevor Toms. A popular starlcr's 
collection! of programs with educational 
hints, a section on debugging, garnes, and 
a Wurnpus. 128 pages. £1.95 




The Power of the Dragon by John Sharp ^ 
and David Bolton. A guide to programming 

the Dragon, undertaken through a collec- 
tion of 30 entertaining programs from 
games to VAT calculation. 175 pages, £2.75 





The first 450 orders, will also 
receive a FREE GAME — 
is e ladders-and- 
platforms game for the 
Dragon 32. It's not one of the 
great DRAGON classics. It s 
not even new. But it's a great 
way to kill off those idle half 
hours when you feel like a 
break from reading or pro- 
gramming . . . and it's free. 



1 . 



These books have been 
travelling around looking for 
Dragon owners for some time, 
so although they are in 
perfect nick inside, most of 
the covers have a tiny dent, or 
sticker mark, or other small 
token of life's experience. 
These, like the low prices, are 
all part of the natural beauty 
of cut-price books, and do not 
affect their performance. 



Please 
send me the 

following DRAGON 

books: 

. . . LOAD AMD GO, £1 .95 each 




Dragon Magic — Your 
first programming book 
by Richard Wad man. 
This \s a programming 
primer, approved as a 
Dragon leaching book 
by Dragon Data, idea 
for youngsters (or iot so 
youngsters) starting 
out. With line and 
colour illustrations. 56 

pages, EUO 



THE POWER OF THE DRAGON, £2 75 each 

DRAGON MAGIC, £1 .50 each 

TOTAL 



NAME . . 



k m m. m 



pi#h&b make qui cheques and poslaJ orders to Scat Press UK). (Dragon books) 



Bank account empty? Don't know where the money goes? 
Can't afford an accountant? Or even a lock-up wallet? 

You should have DRAGON HOME ACCOUNTS for the Dragon 32. 

A 4pp booklet describes the options for storing your monthly household transactions on tape, making 
forward estimates of expenditure and reviewing your budget to date or month by month. 
• The accompanying program was originalfy marketed by Gemini Marketing at £19.19 DRAGON 
USER'S special offer price is £6.50, INCLUSIVE of postage and packing. The program comes 
on cassette only — we regret there is no disc version avai fable. 

DRAGON HOME ACCOUNTS can handle up to 150 transactions a month of up to 
* each. The program can display a bar graph plot of monthly expenditure ^ NAME 
on any particular item, and store fixed values for regular monthly 
outgoings Information from earlier months stored on separate tap* 
can be loaded into the program. 



Please 
send me 

. .copies 
off DRAGON 
HOME ACCOUNTS, 
at EG.6Qeech. TOTAL 




ADDRESS 



Please make out ch«qu«S or postal orders to Scot Press Ltd (Home Accounts) 



IMPORTANT: When ordering special offer items, you can send your orders for BOOKS and for H OM E 
ACCOUNTS to us in the same envelope if you wish, but please make out payments for BOOKS and 
for HOME ACCOUNTS on separate cheques, and send them with trie separate coupons provided 
(photocopy cou pons are acceptable). This helps us to keep the flow of orders separate, and send the 

goods out more quickly. 

Send your orders to Dragon User at 12/13 Little Newport St., London WC2H 7PR m 

the envelope DRAGON SPECIAL OFFERS. 
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27COOMBE ROAD. 50UTHMIN5TER, ESSEX. CMO 7AH 
TEL: 0621 7725B9 for 24-HOUR CREDIT CARD SALES 




^INTERNATIONAL TWIN PACKS 

AtJventur&Time Macftine — Secret 

Mssion^GhD5t Tawrt — ^rtwctoD 
Casllfc'Gcilden Vtayag* — Wizard oi 
AKyri/Mulk — - Ten little Indiarisdrcua — 
Pirate AduenlMW — Pyran*d or Poem — 
Savage Island Pari I & 2 — Sorcerer oF 
Clay. CaillS — Escape. Ircm Pulsar 7 — 
Arrow of Death Part 1 &. 2 — Perseus and 
Andtomecta — Strange Odtlfcf>sey 

CHOOSE VOUR TWIN PACK FROM THE 
ABOVE TITLES FOR ONLY 
per Twin Pack 

SOFTWARE PROJECTS 

J.:l Sal WillHrfManiC WHner - TWIN PACK 

— ONLY £7.95 



PROGRAM 

FACTORY 

Ninia Warrior — £2-99 
COMPUTAPE 



nfisfl aAd 



DLSIG 

Dark Slar/Romm 

TWIN PACK - 



DESIGN 

els Revenge - 
- ONLY ETiflS 
f — E2.99 



BLABY 

Boulder Crash E5.L . 
Caverns Ql Chaos £3._ _ 
5*r«er Rat-Raider* C2 .99 

Co0iaSriS*ch£il.9fl 
Bttnbs Away Basil El. 99 
F&rilouS- Pit £1.99 

Blocks ngdom £1 .99 

Star Defence £1.99 

MICRQVISION 

Bean SlSltoer E7.50The Talisman E7-5Q 

A&F 

* ' SOFTWARE 

CtiuCkie, Egg L2.99 
Screaming AbdabS E2.99 



ONLV r?.9 9 
'iVhirlyhird Rm £2.9*9 

BLABY GAMES 

Kung Fu es.OD 

to na Crazy £2 .99 
Olyfflpifl — £3.M 
Cosmic Crusader 
E3.99 
Barmy Burgers 

£1.99 
Darls — £1.99 

CRAZY 
FOOTER 

Irom Compulse 

Only £2.99 

A GAME OF FOOTBALL 
AND IT'S NEW! 

HEWSON 

CONSULTANTS 

3D Lunahack£2.99 
3D SairJdiKi AMack 
£2.39 
30 Space Wars £2.99 

SUMMER SPECIALS 
INCENTIVE 

Bade Track E4.0P 
Moon Cresta £4.00 
Eddy Steady Go E4.QO 
The Kel Trilogy £4.00 



OCEAN 

Hunchback Ei.99 

BaH 

SOFTWARE 

And All Because 
£3.09 

Pub Crawl E J.99 

IMPSOFT 

Chicken RuFVFryil^ 
E3.5QPAIR — 
£1,09 *3chi 

MASTERTRONIC 

VagaE- Jackaol 
Big Driver El .99 

SMfcTHSON 

COMPUTING 

Word Processor 
£14.95 

CABLE S/WARE 

Superb-Owl E2.99 
73k , SrSont2.90 
Fartlaiy Fighl £2.99 
Quazimodrj £ 2 99 

PER I PHIALS 

Pftakaoft Joystick 
£9.95 PAIR — ■ £5.50 
EACH 

CONSUMER 
ELECTRONICS 

Slrik* Conflral 
Joysticks 
£17.95 Pair 
Cassette Lead £3.95 
Ariel Lead £2 .50 
Cenrtronics Printer 
■: \ :: jieE11.9S 



To order I he above please send ChequerPostal Order made payable to 
COMPUTAPE, tot be eibow address. For Catalogue only, ptea&& send SAE. 
PFIICES INCLUDE FIRST-CLASS POSTAGE and pgckmg. Overseas Orders 
Welcomed. COMPUTAPE: THE ONLY SOFTWARE COMPANY TO MAKE 

YOU R D R AGON CHIPS FRY NOT CRY J Mis 



CLASSIFIED ADS 



DRAGON 32. Konix Joystick, 
light pen, over 30 original 
games including Fire-Force, all 
leads, boxed E7D ono ask for 
Niaz Leave. Teh 01-892 9985. 



DRAGON 32 joysticks, plus 
£1G0's of games (all originals). 
Only £80. Call Ross on 
Chandlers Ford (0703) 260488. 

Anytime. 





SWAP ALL, for printer with 
graphics or plotter (A4 min) or 
sell for £65. Dragon 32, dust 
cover, pair Delta Analogue 
joysticks, software in cl. World of 
Flight. Telewriter graphics 
system, etc. Mags/books. All ex 
cellent condition. Tel: 02214 



DRAGON WITH NEW f ullspec 
64 board p.s.u. leads. £45.00. 
Worki ng 32 board £20.00. Off e rs 
please for edit + 32/64. Edit + 
Dragon PI us 128 cartridges. 
Trojan light pen. Sprint compiler. 
Plusother uti I it i es . Col w y n Bay 
(0492) 47B13. 






DRAGON NEWS magazine out 
now! Includes offers, games, 
reviews, software exchange, 
listings, adventure help and 
more! For your trial issue, .send 
50 p & stamp to Dragon News, C, 
VollbrachL 110 Alpine Rise, 
Styvechale Grange Estate, 
Coventry, CV3 6NR. 



DRAGON GAMES for sale, In- 
cludes some latest titles and 
many Microdeal hits. Swapping 
considered — send details; for 
our full list send an s.a.e. to: 
Chris Vollbracht, 110 Alpine 
Rise, Styvechale Grange 
Estate, Coventry, CVS 6IMFL 





WANTED Race Sideways Rom 
or another An dtek Add bus PCB 
or complete. Will consider even 
if rest of system has to co me w it h 
it. Cash waiting (0909 477734). 



SUPERDOS disk drive con- 
troller kit (excluding case} £55: 
tested working Dragon 32 (no 
lid) £38: Untested complete 
could be working! £35: Most 
Dragon spares inc 74LS783 — 
£10.25. 6309 E, 4164, trans- 
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H.C. ANDERSEN COMPUTER R S 

HIGHLY RELIABLE 
SOFTWARE and HARDWARE 

WE ARE THE ONLY ONES IN THE WORLD 
LICENSED TO DISTRIBUTE QS-9 
SYSTEM LEVEL 1 FOR THE DRAGON COMPUTER 
INCL. EDIT ASSEMBLER, DEBUGGER. AND THE 
SYSTEM PROGRAMMERS MANUAL £174.00 

SOFTWARE FOR THE 0S-9 OPERATING 




■ p 



CAD D MODEM COMMUNICATION PROGRAM FOR TRANSMITTING OR 
RECEIVING VIA MODEM (SEE DRAGON USER MARCH 1987) £89.00 
CAD PATCH 80 MODIFIES YOUR ORIGINAL Ofr9 STYLO- PYiMACALC OR 
RMS TO USE 80 CHARACTERS PR. LINE IF YOU HAVE PLUS EXPANSION 

£54.90 

CAD DISKRX DS80 ■ DOUBLE SIDED 80 TRACK DRIVER AND BO0TER) 
UPGRADES YOUR 40 TRACK OS-9 OPERATING SYSTEM 'FLOPPY DISK 
TO AN 80 TRACK DOUBLE SIDED OS-9 OPERATING SYSTEM FLOPPY 

DISK £30.40 
CAD TRO USADOU R R FAL Tl ME D ISSASEMB L F R £54 J 

SOFWARE FOR THE 

CAD SUPER-W RlTER II TEXT PROCESSOR . UPG RADETQ DISK £33.30 
DDL SUPER-WRITER II TEXT PROCESSOR ON CARTRIDGE 
I NCL . CAD SUPER W RITER OlSK U PG RAD E . £77.6 5 

WE STOCK SOFTWARE AND HARDWARE FOP OS-9L FLEX AND UNIFLEX. 
PRICES ARE INCL VAf. 12 MONTHS GUARANTEE ON SOFTWARE AND 
HARDWARE POSTAGE AND PACKING ADO 1D FOR HARDWARE (MIN. £2 
MAX. £20) AND 5% FOR SOFTWARE (MIN. E2. MAX £5) SEND CHEQUE 
MADE PAYABLE TO: 

H.C. ANDERSEN COMPUTER INC- 
ENGLANDSVEJ 380 DK-2770 KASTRUP 
TELEPHONE: 01-52 44 04 TELEX: 31116 
DRAGON DISTRIBUTOR IN DENMARK 

OS-9 IS REGISTERED TIM OF MICFOWARE AND MOTOROLA, USA FLEX. UNIFLFX IS 
REGISTERED TM OF THE TECHNICAL 5V5TEM CONSULTANTS. USA CAD IS 
I i tG ISTERED TM OF H G /■ NE >l I : :>c N ZC "vlH'jT = R DF \, MAI IK 



formers, CPU's, PSU PCB. 
Phone for details — NickSpiers 
0892 44070 eve r s. 



32, joysticks, £t00 ! s 
worth software, over forty 
ragon users — £120. 




Telephone (091) 5220727 
evenings. 



OVER 100 GAMES for sale from 
50 p each + p&p. Also back 
issues of D.U. send s.a.e. to H. 
Grey, Three Trees, Green Farm 
Lane, Billericay, Essex. 




DH AGON computer & games, 
tape recorder, joystick, manual. 
Can be split. Tel: Harby 
(0949) 60451. 





HERE'S MY CLASSIFIED AD. 
(p I ease w r i te you r copy in c a pitals on the fines bel o w) 



Name . r , 



a a J j 



■ 



i i 



i i r m f 



Address 



■ ■ a i. ■ 



Teh 

.1. ■ ■ ■ Sjt Fr i r s ■? ■ ■ ■ ■ 



Please cut out and send this form to: Classified Depart men t 1 
Dragon User, 12-13 Little Newport St, London WC2H 7PR 







AS promised last month, we'll be spendi ng 
some time examining a more detailed ver- 
sion of our parser. We might not have a 
parser that compares with Magnetic 
Scrolls, but if we produce any hints and 
clues for the finished game at least we'll be 
able to type them all in! (Severe bug in at 
least one computer version of The Pawn). 

By way of a slight diversion , after all the 
programming is finished for the month, 
someone recently was asking how to go 
about gettfng ideas for an adventure so 
that you can have a game ready when a 
famous anniversary comes around, How 
to, in other words, have the right adventure 
ready for the right time and thus hopefully 
increase your sales. 




But first, the programming, and as a look 
at the listing will tell you, what a lot it is too. 

Some things, you'll be pleased to note, 
remain pretty much the same as before. I n 
particular, the routine to accept an input 
from the player hasn't changed by very 
much. Lines 60000 to 60032 take care of all 
this, and if you managed to u nderstand the 
explanation in the June issue then you'll 
have no trouble in working your way 
through this lot The only real difference 
are aj we keep track of the previous entry 
from the player in case they want to repeat 
a command and b) we allow for keys like 
quotation marks (for talking to other 
characters) and commas, which are used 
for separating commands. 

This means that we can happily accept 
inputs of the form: 

SAY TO GEORGE "ATTACK THE TROLL" 
SMASH THE DOOR, AGAIN. WALK 
THROUGH.GO SOUTH. EXAMINE 
THE GROUND 




or whatever turns you on, I 

Now all we have to worry about is the 
code that makes sense of all this lot. As 
with accepting the input, some of it will be 
quite familiar, and it all really works on the 
same principle asthe mini VERB ... NOUN 
parser covered in the June issue. If you 
read the J u ly one you should have got most 
of your vocabulary sorted out by now, or at 
least all the essential parts of it, but the pro- 
gram incl udes just a few words to enable us 
to lest you've entered this month's section 
of program correctly. 




A 




Gerrard talks about words and anniversaries 



Well ta ke each new ad d it i o n in t u rn , an d 
concentrate first of all on the section that 
ooks for not only verbs and nouns, but also 
link words, action wcrds. and additional 
nouns (if you'd typed in something like 
PLACE KEY UNDER DUSTY BOOK). 

Lines 4016 to 4042 split the sentence up 
as appropriate, taking out spaces and 
references to the words 1he r and 'a' in lines 
4020 to 4026. Note that the presence of a 
verb is checked in lines 4016 to 401 8 before 
we start removing parts of sentences. It's 
no use chucking out all the extraneous 
words if we haven't even managed to find a 
single space in the player's input. A space, 
after all, is what separates the verb from 
the others words. 

Line 4044 f h e n t r u ncates every t h i n g into 
a five letter word, so that if a player had 
entered as his verb EXAMINE then VB$ 
would just contain the letters EXAM I after 
passing (or is that parsing) through this 
li ne. If y o u want to ch eck fo r more or I ess I et- 
ters then just alter this line accordingly. 

Lines 4046 to 4074 then do all the check- 
ing for known verbs, link words, nouns and 
so on. Variables like VB. NB and so on are 
returned as being the verb number; the 
noun number (LI being the link word 
number and AC the action word number: 
nouns are split into ordinary nouns and 
additional nouns, and have the variables 
NB and N A attached to them.) 

Assuming everything is found to be a 
word that the program has been taught to 
recognise, the program trundles through 
to I i n e 4084 a nd r etu rn s fro m t h i s sectio n of 
the game. Now, having got numbers to 
re present verbs, nouns, and soon, you can 
easily include code of the sort: 

ON VB GOTO 1000,1050,1100 

and so on , so that verb one would take us to 
line 1000. Here, if you use CP to represent 
the player's current position in the game, 
we could have something like' 

1000 IF CP=1 AND L1=13 AND NO=21 
AND GB%(LI)=-1 THEN PRINT -You 
throw the book at the king in disgust 
and storm out.^OB%(U) = CP;ZZ=ZZ-1: 
RETURN 

Here we have assumed that the thirteenth 
link word is a book, the twenty first noun is 
the king, the first verb is the word Ihrow 1 
and OB% contains the position of all the 
objects (minus one indicating that it's 
being carried) while ZZ is the total numher 
of objects that the player is carrying at the 
ti me. Th u s t h e book i s th row n, iris pi aced i n 
the room (by the statement OB%(Ll)=CP) 
and the number of objects being carried is 
decreased by one, All this in response to 
the simple sentence from the player; 

THROW THE BOOK AT THE KING 

What if the player wasn't carrying the 
book? Well, line 1002 could read; 



1002 IF CP = 1 AND Ll=13 AND NO=21 
AND OB a /o(LI){)-1 THEN PRINFBut you 
aren't carrying the book. 1 : RETURN 

Perhaps you'd like to expand on the 
response and have the king set about 
beating up the player for his impudence in 
throwing something at a mighty ruler. Or 
even attempting to th row something, as is 
t h e case wit h I i ne 1 002. 

Unknown words 

All very well if the program understands 
eve r y word i n every k n o wn ton g u e ( b ut a I as 
there will come a time when the program 
comes across something that it doesn't 
understand or which, regrettably, it recog- 
nises as a bad word. So, we have some 
code to take care of that. 

Lines 4076 and, more importantly, 4012 
to 4114, look after the latter of these op- 
tions, and I'm sure that should wholesome 
people as readers of Dragon User cannot 
begin to imagine what rude words are be- 
ing replaced by asterisks here. This is a 
family magazine, come on, we don't want 
to get into trouble. Freddie Starr ate my 
dwarf indeed. 

Words that aren't recognised are 
covered in lines 4080 to 4090, where DN$ 
conta i n s th e wo rd t hat the prog ra m doesn 't 
know. Okay, so it should be DK$, we can't 
all be perfect. DNS itself can come from a 
variety of different places, including lines 
4048, 4054, and so on. Anywhere, in short, 
where an unknown word can be found. 

The little routine in lines 4086 to 4090 
comes into play if the player is attempting 
to use a verb as a noun, or vice versa 
perhaps, and tells the player that the word 
is a known one but isn't recognised in the 
context that he is trying to use it in. Other- 
wise, he just gets told that the word is an 
unknown one. 

Repeated instructions 

By using the word AGAIN, or more simply 
the abbreviation A, a player can get the 
computer to repeat the last instruction. 
Unless, of course, the last instruction con- 
tained an unknown word, in which case 
line 4080 might come into play. Assuming 
that all has been understood {including 
something like OPEN DOOR.CLOSE if 
where the 'it' is translated back to be a 
'door again by line 4064) then lines 4006 
and 4008 look first of all to see if the first 
thing encountered in a sentence Is an 
AGAIN or an A, and if it is s then sort out the 
input strings accordingly. Now you know 
whytheinput routine was modified slightly 
so as to keep track of the previous entry by 
the player. 

Lines 4092 to 4100 are also used by 
the AGAIN routine, but only if something 
is found that can be AGAINed, if you'll 
excuse the phrase. Here we are also look- 
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i n g f or add it ion al co m m an d s , separated by 
the use of a comma, You'll note the search 
f o r t h is i n I ine 4096, so t hat J h e p rog ram ca n 
be persuaded to cope with things like: 



PUT KEY IN DOOROPEN IT.GO 
SOUTHAAJAKE AXE FROM WALL 



And if you find that the program doesn't 
work then I shall use the excuse that 
Magnetic Scrolls put forward when writing 
to a friend of mine after he had complained 
about a fault in one of their programs. 

The program worked perfectly, they told 
him, It was the design of the computer that 
was at fault! 

No, seriously, it does work. 



Conclusion 

Amazing how rapidly one can run out 
of space, I was well prepared to talk all 
about getting ideas for adventures, 
searching through encyclopaedias for 
dates of historical importance, and so on. 
After all, it is quite important if you can 
manage to produce the right adventure at 
the right time. 

W hoeve r g ets som et h i ng out by J a n ua ry 
of next year, in time for the 200th anniver- 
sary of all future England cricketers being 
shipped to Australia, will make a bob or 
two, provided that the adventure is any 
good of course! 

But, as a brief word, don't always go for 
the blatantly obvious. If it is that obvious, 



bigger company than you or I will be pro- 
ducing something, you can bet your life on 
that. Don't always go for exact anniver- 
saries either, as I think we can safely 
ass u me th at h i sto r i a ns do not k now exactly 
to the second when some of the more 
ancient events took place. Give them (and 
yo u ! ) a yea r o r so leeway i n e ith er d i rectio n . 
Finally look for anniversaries that you can 
exploit and perhaps get some educational 
sales out of. apEirt from any others you 
might gain. 

The Crusades, perhaps. The Third 
Crusade (check your dates!). We'll return 
to this topic at a later date, methinks. 

For now, if you can enter the parser in 
readiness for next month's issue that will 
be sufficient. All homework excused. 



Parsing by i . . 

4 3t$=CHR* (34 > : dwS = " I don't know the word 

5 DIM vbt <50> , ac«<50> » ii*<50> , HO* <50> 

6 nbS ti >= 1, daDr" : vbS C2 > =" cl Q^e" : nat CI >=" 



QQF 



ii 



CL >=" smaller" : vbt Cl >=" open" : XiS C 
l)= 1l blue"[flctClj-"an" 
7 11 z - 1 : nv—2 : nn=l ! nc = 1 r nl = 1 

10 GQSUB 4000; PRINT "vb$- H vb^ PRINT" ac*= 
"ac*l PRIST" Li*= 11 liS: FEIHT"nA*= 1, na&: PRINT 
"nb*="nb*:GOTO 10 

4000 REM indor of sonwthing 

.4002 pr*=cni* ; pn*=na* \ pp$-nl % ; se=0 r ag=0 : I 

F anOO THEN cm£=an* 

4004 FRINTiFHINT '^"jeGDSUB 60000 

4 006 IF LEFT* (010$, again 11 THEN ag-l:c 

rai=pr*:an$=MID*<an$>7> : pk*=WI D* <pk* , 7 > S I 

F anM ,iH THEB nn=0 

4003 IF LEFTitcmS, l>= ,, a" THEN ag^ljcmi=p 
r*i an* = MID* tan*. 3 ) : pk*=MlD$ Cpk*< 3> : IF an 
*= M " THEN an-Q 

4 010 na*=" M s nb*=" N : 1 15=" " : ac£=" rt : vbl=" " ; 
na=0: nb-0: vb^O: ac = 0: 11=0: vl*=" M s ll*.^'" : a 
it**" 1 J nalS="" : nblS= |,,M 
4012 1c=LEN<cbq*> 
4014 GOTO 4092 

4016 FOR 1-1 TO Lei IF M I D£ fcJB&* i, X>.=f "T 
HEN vl*=LEFT$CetnS, i - 1 > : fc=i f GOTO 4020 
4016 NEXT I : vl£=cma : GOTO 4044 
4020 FOR i=k TO lc:IF JITD* (Cffii , i t 3 ) a 
" THEN qm* = LEFT*<cniS, i-1^ +MID*Ccra$, 142> 
4022 NEXT: FOE i-fc TO lc : z*=MID* <cra£ , U 5 > 
4024 IF Z*=" the 11 THEN cmS=LEFT£ Cera* , i~l 
>+Mir>S Ccm*, i + 4 > 
4026 NEXT 

4028 FOR l=-k+l 10 lc: IF MID* (cm* , i , 1 ) =" 

11 THEN 1 14=MIb& (cms , k+ 1 „ i— k- 1 > j k= i ■ GOTO 4 
032 

4030 NEXT; nal*-MID* (cm* , k+1 ): GOTO 4044 
4032 FOR i=k+l TO lc: IF MID* (cm* , i t 1 > -" 
"THEN a!4=MID£ Ccroi , k+i , l-k-l> rk=l ; GOTO 4 



4 NEXT; nal*=MID* c-crai, k+1 GOTO 4044 
C FOR i=k+l TO lc: IF MlDS Ccm*, i , 1>=" 
"THEN nal*=Ml D* <cm* . k+1 , i-k- 1 > : k-i r GOTO 
4040 

4039 NEXT: nal$-=MIB£ (csbS, k+1 > : GOTO 4044 

4040 FOR i=k+l TO lc; IF KIDS <cm* < i > 1 > =" 
" THEN nbl£=MIDS <<?rn£> k+ 1 , i-k-13 r k=i : GOTO 
404-4 

4042 NEXTfnbl^-MIDfcCcioa.k+l) 
4044 nb*=LBFT*inbl>., 5> ; na*=LEFT* inal*. 5> 
2 ac*=LEFT& imt*i B>! 14 *=LEFT* Cl 1* , 5 > ; vb$-L 
EFTSCvl*, 5> 

4046 FQE 1=1 TQ nv; IF vb*<l>=vb* THEN vb 
=i;GOTO 4050 

4048 NEXT 1 t vb=0: dn*=vl$: GOTO 4076 
4 050 IF ll*=»» THFN 405^ 

4 052 FOR 1=1 TO nL:IF lit(l>=ll$ THEN 11 
=l:GOTO 4056 

40b4 NEXT: 11=0: dn£=i Li: GOTO 4076 
405© IF ac*="" THEN 4062 

4058 FOR i=l TO nc: IF act <1 3 =acS THEN ac 
=l:GOTO 4062 

4060 »BXTjac=0:dnS=al*:GOTO 4 076 

4062 IF nai=" !t THEN Jia=0; RETURN 

4064 IF £la£="it" THEN na* = pn£: nal* = pp* 



4066 FOR 1=1 TO nn: IF Jia$(l)=Eia* THEN na 
=l;GOTO 4 084 

4068- NEXT 1 r na-0 : dn£=na 1 £ : GDTQ 407© 
4070 IF nbl*= ,M1 THEN 4076 

4 072 nb* = LEFTSCnbl* i 5) s FOR 1=1 TO iiz: IF 

nbt(i>=nb£ THEN nb=i : GOTO 4064 

4074 NEXT? nb=0r dn*=nb!4: GOTO 407G 

4076 se=li IF vbfi= pl #### M OR vbl="****" TH 

EN PRINT "Vatcb it^ 1 ; RETURN 

407B GOTO 4 086 

4 080 IF dn$="a" OR dp a gain" THEN PR IN 

T" You 're not making much nnes I 1 a afrai 

d . dn= 1 r &6= 1 : RE TORN 

4032 PRINT dwfc; x$; dn*: x£: " , " : dn=l 

4 034 RETURN 

4 036 v*= LEFTS CtXn& t 5> i FOR 1=1 TO 50r IF v* 
= vb$c.i> OR vt=ac*Ci> OR v4=lit(i> OR v*= 
no*Ci> THEN 4 090 
4 OSS NEXT: GOTO 4060 

4090 PRINT dwfc: x*| dll*; Jt£c " in that cnnte 
RETURN 

If ag=l THEN 4 102 
4094 an=0 ; ani-" 1 r FOR i=l TO ic 
409G IF MI i pk$ , 1 , 1)="," THEN an S= MI DS C 
pkS fc 1 + 1) : cmft^LBFT* <cm&. 1-1) f pk*-MII?S (pk* 
p i + 1 3 r an= 1 : GOTO 4102 
096 NEXT 

ari*="a" OR anft=" again" THEN arj±- 



3Ct , " 

4 092 



4100 

4102 
4104 



lc=LEN (cnH > r 
IF MID* (t;nit. 1 . 



1=1 TO lc 

THEN cml 

= LEFTS iom£> i-1) +MID* (cmS, H-S3 l GOTO 4114 
410^ IF cn*= 1 ' * OR cm*-" ***»**#*" 

THEN PRINT "And vou, " ; ye-1 ; RETURN 
4103 t*=MID* icm$ t 1.6): IF t*="*+#****#" O 
R ti= HttfHi ' THEN PR INT 1 ' Behave. " : GOTO 

4124 ' • ■ , - 

4110 IF KID* (cmS, f. t 4)=" #*** pp THEN PRINT 
'"Curb your tongue, ": GOTO 4124 
4112 NEXT cGDTO 4120 

43 L4 PRINP'Sfcop swearing. " : GOTO 4124 
4116 RETURN 

4118 PRINT "Era. no- 11 ; se= 1 : RETURN 
4120 REM inder of epmething 

4122 GOTO 4016 

4124 ye- lr RETURN 

60000 plS=CTo* 

60002 cm* = ,M ' : b=l 

60004 FRTNT M V : CHRS <S > i 

60Q0e a* = INKEY* ■ IF a*= ,, " THEN 6000© 

60006 REM 

6Q0 10 REM lndyr of something ELSE 
60012 2=ASC<&$> 

60014 IF <z>97 OR z<65> AND z<>32 AND s< 
>44 AND Z<>13 AND st<>& AND zOl34 THEN 60 

oo& . 2 1 L 

zl=LEN<cra*J : TF zl>7S AND CzOlS AN 
> THEN 60006 

IF Z=32 AND zl=0 THEN 60006 
IF 2=44 AND sl=0 THEN 60006 

z = 13 AND iloO THEN PRINT " ";C 
":pkfi=cm$^ RETURN 
z=13 THEN 60006 
60026 IF 3=6 AND zlOO THEN crai = LEFT* icm 
*>zl-l>sPHINT at;: GOTO 60004 
60026 IF z=6 THEN 60006 
60030 IF 2=34 AND zl=0 THEN 60006 
60032 1 C m$ =-cni* +a * S PR I NT a*;:GQTO 60004 



60016 
D z<> 
60016 
60020 
60022 
UR* <6) ; " 
60024 I 



IF 



28 Dragon User August 1987 




WHAT a quiet unassuming lot you Dragon 
adventure fanatics are. Apart from British 
Telecom engineers with Dragons who use 
British Telecom stamped envelopes lo get 
in touch, and people who write on pink 
paper, or yellow paper, or (urgh!) green 
paper, something like ninety per cent of the 
letters I get are grovelling pleas for help 
with various adventures, Of the rest about 
h alf a re of f eri ng sol ut i on s to vast numbers 
of different games, and the other half are 
wittering on about Jet Set Willy and other 
things only obliquely related to the 
business of solving adventures- Some* 
thing strikes me as odd here, somehow. 
Does it mean that nine out of ten Dragon 
owners, who expressed a preference, arc- 
incapable of solving adventures? I 
shouldn't think so. Does it mean that nine 
out of ten Dragon owners are like the writer 
of this column and are a wee bit on the lazy 
side? Aliah, much more like it, so let's have 
some more solutions please, chaps. 

Solving everything 

Onto someone who has probably solved 
more Dragon Adventure games than have 
been written, and is now going about 
writ i ng his own just to redress the balance. 
Young Hargrave, for it is he: a letter from 
him is like a stroll through a post office. 
Wads of paper, jiffy bags, stamps, more 
envelopes, tapes, all sorts of interesting 
things. Plus, and this is what they want, 
solutions. For 20 pence, to cover printing 
costs (it says here) he can offer solutions to 
Tangtewood, Vortex Factor Colossal Cave. 
Trekboer, Aquanaut471, El Diabtero. Black 
Sanctum, Madness and the Minotaur, 
Juxtaposition, Don't Panic, Ket (part one), 
Syzygy, Starcrash, and something called 
others! By which of course he means every 
other adventure in the known universe, I 
have no doubt. His address is Crawley Hill 
Farm, Uley p Dursley, Gloucester GL11 
SBH r although that could be 5BH I have to 
admit. Simon Hargrave : may your post- 
man curse this column. 

The game he sent to me, Starcfash , was 
mentioned by big brother in the January 
co I u m n > so we wo n't go in to any g re at deta i I 
about it here, except to say that it had been 
updated somewhat since then. It includes 
a very useful verb, VLIST, which prints out 
a list of all known verbs. Very handy when 
you're convinced that the program writer 
has been watching too many episodes of 



Call My Bluff. While trundling about an 
unknown planet awash with alien life forms 
and acid , which is a bit like going into 

Watney's pub in Birmingham, I was 
reading Simon's letter accompanying let- 
ter, or script for the next six months of 
Eastenders, whichever is the shorter, He is 
t ryi n g to m a rket thisga me, b ut says that th e 
software houses will not themselves take 
o n t he respon sib i I it i es of m a r keting a Basic 
(with machine code additions of course) 
adventure. 

Now the software houses can naturally 
enough please themselves about what 
they decide to take on or ignore, but 
Simon's point is worth pursuing. Most of 
the retailers will not stock any adventure 
that doesn't contain graphics, unless it's by 
Infocom. Which is not, by the way, a com- 
plaint about Infocom. Good luck to them. 
The excuse that most of these retailers give 
is exactly the same one as Simon gets 
when trying to market his Basic adventure, 
namely that there's no demand for them. 
Of course there's no demand for them if 
nobody stocks the blessed things! A but- 
cher who didn't stoc k m eat wou Id p robably 
come to the conclusion that there was no 
demand for it because no-one came into 
his shop. How do they know? Market 
research on people who come into the 
shop? If you know you're only going to be 
able to buy over-priced and over- hyped 
(generally) graphic adventures and you 
don't like graphic adventures then you 
wo n't g o i n to t h e sh op, and so t h e res u Its of 
any market research done in that shop will 
be totally incorrect. 

What can be done about this sort of 
situation? After all, if W,H. Smiths won't 
stock a game you can hardly persuade 
t h e m to do so. If Ost r i ch S of t wa re wo n't se 1 1 
your game you can't tell them that they 
must on penalty of death lo the Spanish In- 
quisition. After all. rio-one expects etc. etc. 
etc. Personally I liked Simon's Starerash, 
but haven't got the clout to market it. I can't 
rush around Wigan (of which more later) 
throwing copies into every shop I come 
across. Perhaps you'd like to tell me your 
views on the subject. Have you tried 
marketing a game of your own? What sort 
of problems have you had, and more im- 
portantly, did you find any solutions to 
them? Simon Hargrave, and I await your 
letters, 

Back to this letter of the young boy 



Hargraves again. He offers us some 
PQKEsfortfeys of ffie Wizard, if you're hav- 
ing problems with this particular bash. 
Three little goodies in all, and they are: 

POKE &H200R&H12 and 
PQKE&H2Q10AH12. 

This disables death, which would be most 
convenient for a lot of us I imagine. Accor- 
ding to Simon this takes care of most death 
situations, and all you have to do is press 
W to re-incarnate yourself. I shall try and 
remember that next time I visit the Seven 
Stars. 

POKE&H1E9E.0-255. 
This governs the strength of all the 
creatures in the game. However, set it too 
low and you'll manage to stop the Unicorn 
helping you, which is definitely not what 
they want. 

POKE&H181CAH0F. 
This allows you to rest whenever and 
wherever you want, so that you can get 
your strength back whenever it's needed. 

Unfortunately even with the help of this 
lot Simon hasn't managed to finish the 
game, and seems to be convinced that it's 
impossible. As if. 

One more mention for him, and then 
we'll ignore him for the rest of this month, 
and possibly next month as well. Not that I 
think he'll go away. 

Tips on TangiewQoff, and no backwards 
writing because all the blood rushes to my 
head. To reach the fireflies you must go 
north, east, west, north with Foghorn at the 
southern entrance to the marsh at night. 

To get Bruce to the island you must drink 
in the Western Well and then jump on the 
springboard. 

To get Beanbag i nto Schark Castle youll 
have to wait until the end of the game. You 
can enter by using the fire exit, but only if 
you can find "the silly thing!" as the 
Hargrave pen has it. He also doesn't 
mention where it is, gloating about people 
who can't find it, talking about certain 
animals who like to bury their heads in the 
sand ...yawaevigatahwoh! 

Northwards 

Enough of him, let's leap about the coun- 
tryside and head further north even than 
Wigan. Heavens, John Beagrie, up in 
Aberdeen, tells us that he had managed lo 
sort out the Gi-Ants, who seem to have ap- 
peared in almost as many games as the 
legendary Grues, and who pick up as 
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many mentions as the renowned dwarf 
Dimli Gloing. Anyway, to get past them 
whoever had the archangel should simply 
LEGNAHCRA DEW, which seems a bit 
drastic but works. Beyond there our Scot- 
tish friend runs into problems, although he 
does tell us the ASKing at the citizen's ad- 
vice bureau (an ordinary tale of everyday 
ad visor y folk) will get you a spe 1 1 wo rd a nd a 
magic carpet, and that wishing on the 
wishing well will transport you to the other 
wishing well , nexlto old friends the citizens 
who dispense advice. 

By the way, Mr. Beagrie, the verb BRE as 
covered in the March issue refers to BREak 
not BREathe, and hence the response 
about violence, please. We all make 
m i stakes. Final I y, h e asks for hint sh eets o n 
a number of adventures, bur as I only buy 
sheets of paper in units of 500 at a time 
you'll have to wait a wee while, 




Continuing our countryside forays and ' 
cunn ingly h ead ing ever close r to W i g an we 
get to Sheffield, wherern lives John Foster, 
at 94 The Oval (personal cricket ground, 
must be well off). Firth Park, Sheffield S5 
6S P Tel I i ng me abou t lar g e f ri en d s of you r s 
does not guarantee a mention, John, 
especially when they're called Arnold and 
Sylvester. The latter, as we all knew, is 
about as tall as the aforementioned Dimli 
Gloing, but I daresay if Arnold (no I can't 
spell his surname!) spilt my drink I'd pro- 
bably buy him another one. John has writ- 
ten a Basic text compressor for Dragon 
adventure writers, which costs £2.00 plus 
50 pence post and packaging, and this 
magnum opus he refers to as System One. 

The instructions for use are about as 
long as a good issue of Dragon User, but it 
isn't that difficult to use. We at Chez 
G err a rd m a n aged q u i te s u cc essf u I ly , eve n 
under the strain of trying to watch Ian 
Botham smash several cricket balls out of 
the ground. To work at all you'll- need to 
have at least 2K of text in your game, which 
should n't be any great strain for most of us, 
and although it does take quite a while to 
hunt through everything and compress it 
down in size, if you haven't got access to a 
routine like this then it's worth the wait. Not 
the greatest saving of memory that I've 
ever seen , although any saving at all is not 



to be sneezed at and it will reduce 18K of 
of text, the maximum allowed, down to 
about 14K. In other words, about a 22% 
saving. 

Despite my comments the instructions 
are actually very good and very clear, and 
give enough details and examples for 
anyone to be able to make use of the pro- 
gram. Send £2.50 to John and the pro- 
gram, which works and does the job it is in- 
tended todo, will be yours, And no program 
can have higher praise than that, really, 
22% com press ions eem s to be average for 
whatever amount of text you use, between 
the limits of 2k (smaller savings the less 
text you have, I think) and 13K. So, send 
Arnold of the unspellable surname off to 
John and if it reduces him by 22% I'll have 
my drink back, thank you very much. 

Whoever started off this desktop pub- 
lish ing la r k has a I ot to an s we r for. W hoe ve r 
coined the phrase has even more to 
answer for, since the idea of reading the 
tops of desks is not one that has ever 
appealed to me personally. Still, it has 
p rom pled a lot of peo p I e to start producing 
magazines of varying quality, and two 
more for all you adventure freaks to start 
sending off for are both produced in (pause 
for fa nf are , b I are of t r u m pets , Lan d of H ope 
and Glory etc.) Wigan. 

One of the advantages of living in Wigan 
(yes, there is more than one) is that one can 
get to meet the producers of these 
magazines, and despite thefact that one of 
them beat me at pool (I was cueing under 



the affluence of fncohol, honest guv) I shall 
still mention them. First of all we have 
Adventure Probe, which is produced by 
Sandra Sharkey from 78 Merton Road, 
Wigan Lancashire WN3 6 AT, closely 
followed by Adventure Contact, and this 
one is produced by the Wizard of the pool 
c u e Pat Wi n Stan ley, t h e ad d re s s to writ e to 
this time being 13 Hollington Way, Wigan 
Lan cash i re W N3 6 LS. Bot h m ag az i n es a re 
over a year old, which says something in 
itself, and both are full of useful adventure 
hints and tips. Not exclusively Dragon of 
course, but you should find something to 
interest you in there somewhere. Sample 
issues are a quid each, by the way, for 
which you'll get about 40 or so pages of 
adventure-mania. Adventure Probe seems 
to cater more for the adventure player, 
while Adventure Contact tends to look after 
the adventure writers amongst us, so take 
your pick. Those areas are not, however, 
mutually exclusive. If I ever win a game of 
pool against one or the other of them I shall 
let you know. 

Oh well, out of space again, so I'll leave 
you with something to ponder on until next 
time. We're all used to collective terms for 
things, like a flock of sheep, a herd of cows, 
a crowd of people, or sillier ones like a col- 
umn of accountants, an abbreviation of 
estate agents and a box of matches. But 
what would you call a collection of adven- 
ture enthusiasts? A text of adventurers, a 
problem of adventurers, a scroll of adven- 
turers? What do you think? 



Adventure Contact 




To help puzzled adventurers further, we 
are instituting an Adventure Helpline — 
simply fill in the coupon below, stating 
th e na me of t he ad ve nt u re, yourp roblem 
and your name and address, and send it 
to Dragon User Adventure Helpine, 



12/13 Little Newport Street; London 
WC2H 7PR As soon as enough entries 
have arrived, we will start printing them 
in the magazine. 

Don't worry — you'll still have Adven- 
ture Trial to write to as well! 



Adventure 
Problem - 



Name . . 
Address 



m m 



m 



■ ■ 



■ ■ 



■ ■ 



■ 



Adventure Contact 



Adventure: Poseidon 
Problem: How to get across the 
Pool of Fire on the 3rd level. 
Name: D. Beckwith 
Address; 30, Rachdall Road, 
Leyton, London E17 8JF. 

Adventure: The Pawn 
Problem: How do I get light, so 
that I canseesomethinginside 
the tree? 

Name: Henning Johnson 
Address: Gamle Sandrigvei 20 7 
4816 Kolbsornsvik : Norway. 

Adventure: 1) Vortex Factor 2) 



Problem: 1) I've done 
everything but haven't finished 
it 2) Where's the oil for the rusty 
droid? 

Name: James Wood 
Address: 49 Rockwood Cres- 
cent, Woodhall, Pudsey, W, 
Yorks LS28 5 AD. 

Adventure: Jangtewood/ 





Problem: How do you get the 
fishing rod? Howdo you get the 
lube tube in the hydrophonics 
dome? 

Name: Neil Davies 
Address: 4 Grinshill Drive. 



Crowmoor, Shrewsbury. Shrop- 
shire SY2 5JE. 

Adventure: Shenanigans 

Problem: How can I exit from 

the apartment? What does the 

landlord want? Where is this? 
Help! 

Name: Dario Palmieri 
Address: 110 Molino 101 
Pescarola 72, 40131 Bologna, 
Italy 

Adventure: The Larkspur 




Problem: How do I open the 
cabinet? What do I do at the 



Idol's Shrine to getthesawinthe 
statu e 's h a nd ? H ow do I get o n e 
paddle from the humming 
generator without being elec- 
trocuted? Help! 
Name: Mr S. Albert 
Address: 22 Little down 
Orchard, Newton Poppleton, 
Sid mouth, Devon, 

Adventure: Airbaii 

em: Can I pick up more 

than one crate at a time, if so, 
how? 

Name: Nicholas Cutts 
Address: 88 Hale Lane, Mill Hill. 
London NW7 3RT 
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Tomorrow the 




Gordon Lee narrowly misses filling the whole earth with numbers 




PIERRE de Fermat (1601-1 665 ) was one 
the two leading mathematicians of the first 
half of the 1 7th century ( Descartes was the 
other). His wide ranging discoveries in 
various branches of mathematics — geo- 
metry, numberth eory, dif f e ren tial calculus, 
and probability — are all the more remark- 
able when if is realised that he was an 
amateur mathematician . being a lawyer by 
profession, serving as a councillor in the 
local parliament at Toulouse. He also 
studied the science of optics, especially in 
relation to the laws of refraction, and his 
theorem on the speed of light, though con- 
flicting with the views held at that time, was 
I ater s hown to be co r rect — but not until af te r 
the passing of two centuries! 

Many of his mathematical theorems were 
also not proven until long after Fermats 
death, one of these, known as Fer mat's last 1 
theorem is still un proven to this day. This 
theorem states that the expression 

x" + y" = z" 

has no whole number solution when n is 
greater than 2. In other words there are Jo r 
example, notwocubes which sum toa third 
cube, no two 4th powers which sum to 
another 4th power, and so on. Remember 
that each of the values must be a whole 



number otherwise there are, of course, an 
infinity of solutions. When n (the power) is 2 
we have the 'Pythagorean 1 relationship, with 
an infinite number of integral solutions: 
3 £ + 42 + 5 2 ,5*+ 12 2 = 13 a ,eta 
Alt ho u gh th i s apparently simple t heo rem 
has been around for over three hundred 
years, no one has yet been able to demon- 
strate i ts p roof p neit her has it been sh 0 w n to 
be wrong — for example, by the discovery 
of a single instance of asolut ion containing 
a higher power As with other of Fermat : s 
conjectures, he evidently felt intuitively that 
they were correct., found plenty of examples 
tQsupportthistheorem.and was unable to 
find any examples which disproved them. 

A number of his other conjectures were in 
relation to the infuriating class of numbers 
known as primes. One of these theorems 
states that every prime number of the form 
4n + 1 (eg 5, 13, 17, 29, 37, 41 r etc.) is 
ex p ressibl e as the sum of two sq uares i n 0 ne 
way, and one way only. 

Another states that if p is a prime number 
and a is any positive integer, then ap— a is 
exactly divisible by p. If both of these 
theorems are correct then they could be 
useful tools in the search for the higher 
primes. In fact the proofs for both of these 



Prize 

NOW that summer is with us {and if it isn't 
with us by the time you read this, I shad 

probably have emigrated to Australia), 
what would be a more ideal prize than an 
elegant, outsize t-shirt, proclaiming to all 
and sundry that one is a Dragon? Peaksoft 
are giving us twenty of their Dragon 

t-shirts as prizes for the August competi- 
tion, so this will be the first Dragon User 
competition ever to ask you to state your 
size as well as your solution. Small, 
medium, large or extra targe. You have 
one a I ready? G et an ot her 0 ne f or th e part- 
ner/toddler/tortoise. Let them see where 
you stand. 

Rules 

Firstly, do as we suggest. Stick to calcu- 
lating the factor and not the actual 
number. Whife Dragon User makes every 
effort to ensure that the contents of its 
articles are accurate, it cannot be held 
responsible for the end of the world as we 
know it. 

Secondly, send us your solution, any 
notes you want to include, a printout of 
your program (no tapes, pleaseO, and your 
name an d address inane n ve tope m a rked 
AUG U ST CO M PETIT] 0 N . 

This month, not so much a tie breaker 
as a tie-die breaker. Tel I us what you will be 
doing with the t-shirt if you win it, It doesn't 

have to be true, only imaginative. And 

printable. 



from a couple to 'nine pages of words, and 
l h a ven 't got tim e to go throug h a 1 1 of th e m '. 
but as the competition was to devise a pro- 
gram, not to read a dictionary, the actual 
number of sequences wasn't the crucial 
factor. However, thanks for all the words 
we' ve neve r h e a rd of . . . 

Copies of Pete Gerrard's Exploring 
Adventures on the Dragon, published by 
Duckworth, go to Richard Long of 
Camberley, C- Hitch man of Mid- 
dlesbrough, T Fawcett of H end on, Terry 
Potter of Chiseldon r SA Siddiqui of 
Chiswick, Terry Smith of Harlow, E.A. 
Newman of Addfestone, Phil Sapiro of 
Liverpool, P. Morgan of Bristol, Paul 

Weedon of WouoivUnder-Edge, Jake 
Anderson of Edinburgh D. Den man of 
Twickenham, R. Banks of Southampton, 
Keith David of Crawley, P. D, Mad docks of 
Maidenhead, A.J, West wood of North- 
ampton, Simon Hargraveof Dursley. John 
Crighton of Hampstead, Pete Faraday of 

Warrington and G.R.Barber of Sutton 
Coldfield, 

The tie-breakers had a heavy cricketi ng 



bias, but we liked the chap who had 

actually done some research: 11 Consulta- 
tion with the Internal, Duvet Manu- 
facturers' Association and the RSPB 
(spokesperson G, Gooch Esq..) produced 
a difference of option. However, the oldest 
local inhabitant recalled a duck worth life 
itself (Somme :i 1916);' 



May winners 




The number of 
ces discovered by 



-letter word sequen- 
varied hugely 



This month's solution appears on pages 6 
and 7. So does last month's. 



theorems has been established 1 but again , 
not until after Ferrnat's death. Two of the 
mathematicians who worked on them were 
Gottfried Leibniz and Leon hard Euler. 

However, there is one instance in which 
Fermat has been shown to have been 
mistaken. Since the impact of prime num- 
bers was first noticed , mathematicians have 
sought (in vain) for a formula which will 
generate exclusively prime numbers. One 
such , is the well known x2 + x + 41 , which 
works obligingly for values of x from zero to 
39, but thereafter produces composites as 
well. Fermat, while studying the possibility 
of such formulae, came up with one of his 
own which, he maintained, produced only 

prime numbers. This formula was: 

2 2 " + 1 

That is, 2 raised to the power of 2n, plus 1, 
where n is any positive whole number 
(including zero) 
The following table gives the first nine 

vaSues: 



2 1 +1 
2 2 +1 
2 4 +1 

2 a +1 
2 16 +1 
2 32 + 1 
2 Bi + 1 
2 12 *+1 
256 + 1 



0 
1 

2 
3 
4 
5 
6 
7 



3 (prime) 
= 5 (prime) 

= 17 (prime) 

= 257 (prime) 

65537 (prime) 

= 4294967297 

= (a 20-digit number) 
= (a 39-digit number) 
= (a 78-digit number) 

To be fair to Fermat, he only stated a belief 
n his formula since the calculations need- 
ed to establish the larger numbers in the 
series were not possible at that time. The 
numbers formed when n is equal to 0,1,2,3, 
and 4 were easily shown to be prime, and so 
Fermat stated that it was probable that the 
rest of the series were also, including the 
number 4294967297, found when n=5. In 
fact this number is composite and has a 
factor of 641. It is surprising that he was 
u n able to deter mi ne th i s factor, espec ially as 
there is record of him factorial ng much more 
difficult numbers such as 100895598169 in- 
to i ts two p ri m e facto rs 89 8 423 an d 1 1 2 303. 

It has now been proved that all values of 
n that are greater tham 4, produce numbers 
t hat m u st be co m pos i te — al most t he exact 
opposite of Fer mat's original theorem! The 
formula still resents a challenge to some 
mathematicians to discover factors of some 
of the larger numbers inthe series, and one 
of the largest numbers for which a factor has 
been found is when n =73. The number itself 
has over 3.1Q 21 digits (that is 3 followed by 
21 zeros), but one of its factors has been 
shown to be: 

2 75 x 5 + 1 

In everyday terms, this factor is equal to 
2 raised to the 75th power.This number is 
then multiplied by 5, and 1 is added to the 
result. 

The competition this month is to devise a 
prog ram wh ic h co m p u te s exact I y the va I u e 
of this factor. NB Don't try to compute the ac- 
tual number that this is the factor to! The 
whol e eart h is not I a rg e en oug h to co ntai nit! 
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JOHN PENN DISCOUNT SOFTWARE 



£1000 

£1000 

t50Q 
£5.00 



E3.00 
£5.00 
£400 
E4 00 
£4.00 
£■4.00 



£2.00 
£3.50 
£350 
£3.00 



RADIO SHACK CARTRIDGES 

FOR THE DRAGON AND TRS BO 
BRIDGE TUTOR 
GRAPHICS PACK 
HANDYMAN 

ROMAN CHECKERS 

CASSETTE GAMES 

FOOTBALL MANAGER ; Add id vc) 
NUMEROLOGY (Occult) 
THE 13TH. TASK (lexl adv.) (Arc) 
COLOSSAL ADVENTURE (text adv.) (Cowan) 
HARE RAISER double pack (gr. adv.} (Harasoft) 
SUNKEN CITY (gr. adv.) (Slik) 
PREDICTOR (Ben ley) 
TIM LOVES CRICKET (Feakso^t) 
SAS (Pfcaksofl) 
PHOTO FINISH (Peaksoli;. 
BACK TRACK (incentive) 
MANIC MINER (Software Presets) 
DOMINOES (Oasis) 

BARGAIN BASEMENT 

£1 50 each: five for £S00; ten (or £10.00 
Please give at teast two alternatives if possible. 
GOLF; CHOCOLATE FACTORY; CITY DEFENCE: UXB: 
DON'T PANIC OSSlEi MINED OUT NORTH SEA OIL: 
DETECT I VE : DRAGON TREK" SUPFR SPY- SURPRISE" 
ALIEN ODESSY: STOCKMARKET: GRID RUNNER: NIGHT 
FLIGHT MINIGAMES. PICTURE PUZZLE: CELLS & 
SERPENTS: DRAG RUNNER: FLIPPER, ULTIMATE: 
ADVENTURF- PFTTIGREW'S DIARY: TRAN SYLVAN IAN 
TOWER: LEG G ITT. 

UTILITIES^BUSINESS SOFTWARE , 

OS9 programs far use with OS9 Operating System, disc 
drives) and Dragon 64. 
DYNACALC. BASIC 09 
C COMPILER 
R.M.S. 

PASCAL. CASH BOOK &. VAT, STOCK RECORDING 
10% discount if 3-4 p'cgrams ordered: 20% discount if more Iftari 5 ordered. 
MANUALS 

Cash Book £ VAT Stock Record mg- Pascal ; Bas c 09 E2.5D each 



£21.00 each 
£27.00 
£20.00 
£19.00 each 



BASIC 42; disc (Hams) tor use with 64. 

+ H ELP UTI LIT Y E&00 +■ SPOOL UTI LIT Y 

(Please slate whether SuperDos or Dragon Dos> 

MON EYBOX: disc (Harris} 

SHAREBOX, MAILBOX, ORDER BOX, (Harris) 

SALESBOX. BiLLSBOX. CASH BOX. STOCK BOX (Harris) 

(SuperDos Or Dragon Dos) 

SOURCEMAKERiP^mcDnims) cass. 

Dl SK- KIT ( Parncomms) 

Hl-RES-TEXT {Cartwnght) 
SHAPER (Shards) — sound utility 
PERSONAL BANKING SYSTEM (Hifton} 
UTILITIES 1, DISASSEMBLER, (Hillon) 
MUSIC MAKER (Maken) 
MAILER.'ADDRESS BOOK fM$T) casS- 
STOCK CONTROL (MET) cass. 

EDUCATIONAL CORNER 

Dragon Dala series : NUMBER PUZZLER : CIRCUS 
ADVENTURE. - 



£14.95 

£1Sj50 
£15.50 each 
E1S 50 each 

£6X10 

e:i0j00 

£3.00 
£3.00 
£9.95 

£5.ao each 

E5J00 



£250 

£2,00 each or two 
for 13.00 



Stiards/Cambrian/Tiger software TIGER GRAND PRIX 
FUN TO LEARN, FAMILY PROGRAMS, MONSTER 
MATHS, SNOW QUEEN. QUIZ PACK : INFANT PACK. 

Ajmpalscrfl: (Cheshire Cal series) MATHS 'O' LEVEL : 
MATHS LEVEL I (4-6 yrs.}, MATHS LEVEL II (6-7 yrs.), 
SUPERSPY, BASIC TUTOR — BEGINNERS' LEVEL. 
ADVANCED LEVEL 



CI 50 each or three 
for C3.00 

each or two 

for ce.oo 



£2 .00 



SOp each 
£15.00 each 



Dragon Educational Series- : NUMBER CHASER 

PERIPHERALS 

2nd hand floppy discs 
SAM chips (74LS783) 

HOW TO ORDER 

Write to us (or phone with an Access order) quoting the UHe. publisher and medium 
(where relevgnl} oF Ihe programs you would like. Please include 50p for 
poslagc'packaging on single orders, and 75p for two or more items ordered. 
Postage to Euope is £3.00 and £6.00 lo rest of world, 

Welry to despatch wilh in 24 hours, bd1 allow up to 21 days for delivery if necessary. 
Cheques-'postal orders made payapte to 40 HN PENN DISCOUNT SOFTWARE. 



JOHH PENN DISCOUNT SOFTWARE, DEAN FARM COTTAGE. KINGSLEY GORDON, HANTS. GU35 9NG. 

Tel, Bordon (04203) 5970 

For all your Dragon hardware requirements contact 

PEAK SO FT, 

43 QUEEN ST. : BALDERTON, NEWARK, NOTTS. NG24 3NS. Telephone. 0&36 



DRbb 



TURBOCHARGE YOUR DRAGON: 

our great value hardware and software: 




£14.95 



BASIC 42 

Extended BASIC lor the Drago n 64 

For Dragondos {please state version) 

R un your Dragon in 64K mode, wh ile reta i n i ng B A SI C 
and DOS. Print on hi -res screen, using standard 
PRINT commands, and a screen layout of 24 rows ol 
42 columns. Other features include' 

Alternative, redefinabie character sets, conlrol Key for 
special characters, repeating keys, and commands in 
lower case, windows, CATCH command for automatic 
relum to window, inverted video (green on olacWblack 
on g reen). true u nderl ining and extra PFLI NT commands 
and functions. 

LIBRARY lists commands and lunctions. Automate 
startup of BASIC program TEXT command for software 
compatibility Still 23335 bytes 1ree to BASIC. Patches for 
Dragondos 1 .0 Can load in extra UTI LITI ES from disk : 

HELP UTILITY £5.00 

Extensions to BASIC 42 include change cursor 
character scroll d isable. pause listing, BREAK disable, 
improved TRON (allows single stepping). Delailed help 
and error messages. 

SPOOL UTILITY £5,00 

Use computer while priming 35K prjnl builer TYPIST 

program turns Dragon inlo typewriter; 

NEW FOR 87: 

ICONS UTILITY * £5.00 

Put icons in your program! Controlled by cursor or 
' 'mouse' '. Command s to def ina, clear, load and sa v& icon 
posi tions and windows. 

STHU'CTUR UTI LITY £5.00 
Another lirsl! Slructured BASIC on Ihe Dragon? Allows 
named procedures, Improved loop controls by WH I LE .. . 
VvBND. anc REPEAT... UNTIL etc. 



DOS UTILITY £5 00 

Make friHnns wiih your DOS! Enter all Die main DOS 
commands, plus LIST, EDIT elc. and select files by 

Cursor •■mouse'. 

WHAT THEY SAY ABOUT 

BASIC 42: 

"probably the best step so liar" . .... Dragon U ser 
"an invaluable utility 1 ' Dragon Update 



HARDWARE 

Memo r y U pgrades FROM 

Superd os Cartridge 

Cumana Dish d rives FROM 

S upe rd OS controller jc hi p o ml<y) 
Peaksafi joystick (ideal "'mouse") 



E35.QQ. 
L75.DD 



£5,50 



DISK SOFTWARE FOR DRAGON 3 2. '64/128 
WITH D R AGO NDOS/CU MAN A DOS 2 0 

* * NEW * * 
Pixie (Mindsofl) £14.96 

Icon-dnven drawing program. Requires joystick. 



DSK D RE A M (Grosvenor) 

The standard Dragon EdilonftssembJer 

D.R.S (Grosvenor) 

Machine code database program 

SOU RCEMAKER ( Pamcomms) 

Disassembler 1or use with DSKDREAM 

DISK-KIT (Parncomms) 

Sort out your disk problems 



£.19. 9 b 



E9.9& 



£8 50 



MACGOWAN SOFTWARE 



PRINTER CONTROL" FROM 

A te* I AN D graph ics processor 

DUMPER" FROM 

Relocatable screen dump p r Dgram 

COLOR PRINT' FROM 

PMode 3 screen duir p prog ' air 



E5.4S 



* * NEW 
TROJAN LIGHTPENSAAP 

Upgrade includes screen dump 
Complete with lig hip-en 

MONITOR/ ASS E M BL E R " 

Printer orientated 



CASS 
DISK 



DISK 

CASS 
DISK 



£7.00 
ES.DQ 
E14.QQ 
£16.00 

£12.00 



£15.00 

ices vary according to printer: please specify. 



MONEYBOX (Harris) 

Horn & and small business accounts 



MAILBOX (Harris) 

Seleclivc mailing list prog ran 

SHAREBOX (Harris) 

Manage your slocks and shares' 

SALESBOX (Harris} 

Balance B/F Sales Ledger' 

BILLSBOX (Harris) 

Balance B/F Purchase Ledger 

CASHfiOX (Harris) 

Double-entry Nominal Ledger 
STOCKBOX (Harris) 

Full-featured Stock Control 



ORDERBOX jfHarri 

Invoicing linked to Sales or Slock 



£1 4-99 



eie.99 



£19.99 



£19.99 



£19.99 



El 9.9 9 



E16J9 



Cheq ues/P.O.'^F url her detail s/des ler enqui r ies to : 

HARRIS MICRO SOFTWARE 

49 Alexandra Road, Hounslow, Middlesex, TW3 4HP Tel: (01) 570 8335 



DRE.7 



